xpRt.wannabe wrote: > Dear List: > > I have the follow code: > > y <- replicate(10,replicate(8,sum(rnorm(rpois(1,5))))) > > Now I need to apply the following condition to _every_ randomly generated > Normal number in the code above: > > x - max(0,x-15) + max(0,x-90), where x represents the individual Normal > numbers. > > In other words, the said condition needs to be applied before > replicate(...(replicate(...(sum(...))) takes place. > > Any help would be greatly appreciated.
y <- replicate(10, { rp <- rpois(8, 5) mysum <- sapply(rp, function(x) { x <- rnorm(x) x <- x - max(0, x-15) + max(0, x-90) sum(x) }) }) > > platform i386-pc-mingw32 > arch i386 > os mingw32 > system i386, mingw32 > status > major 2 > minor 2.1 > year 2005 > month 12 > day 20 > svn rev 36812 > language R > > ______________________________________________ > R-help@stat.math.ethz.ch mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html