Displaying 1 result from an estimated 1 matches for "ydens".
Did you mean:
dens
2007 Sep 27
1
windows device transparency issue
...min(3, pmax(-3, rbeta(5000,1,5)))
y <- pmin(3, pmax(-3, c(rnorm(2500, .25, 1), rnorm(2500))) )
trtp.f <- factor(rep(c("Placebo", "Not Placebo"), each=2500),
levels=c("Placebo", "Not Placebo"))
xdens <- tapply(x, trtp.f, density, na.rm=TRUE)
ydens <- tapply(y, trtp.f, density, na.rm=TRUE)
topx <- max(unlist(lapply(xdens, function(x) max(x$y))))
topy <- max(unlist(lapply(ydens, function(x) max(x$y))))
xrange <- range(x, na.rm=TRUE)
yrange <- range(y, na.rm=TRUE)
nf <- layout(matrix(c(2,0,1,3),2,2,byrow=TRUE),...