search for: nfalse

...(attached) seems to be off on some of the data, is there a better way of doing this. Thanks very much in advance! David library(MASS) jpeg(filename = "diswrong.jpg", width = 800, height = 600, pointsize = 12, quality = 75, bg = "white") myfunc <- function(x, mean, sd, nfalse, ntotal, shape, rate) { (nfalse*dgamma(x,shape,rate)+(ntotal-nfalse)*dnorm(x,mean,sd))/ntotal } wrong <- scan("wrongrawdata.txt", list(x=0)) wrongfit <- fitdistr(wrong$x, "gamma") wrongmean <- mean(wrong$x) wrongshape <- wrongfit[[1]][1] wrongrate <- wrong...

...=factor(cumARscore), position="jitter", main="Days to BOS by Days to First AR", xlab="Days of Follow-up", ylab="Daysto First AR") + geom_smooth(aes(group=bos2), method='rlm', fill=alpha("grey", 0.4)) + scale_shape(solid=FALSE,name="BOS\nFalse = 0\nTrue = 1") + scale_size_identity() + facet_grid(bos2 ~ ., margins=TRUE) +scale_colour_manual(name="BOS\nFalse = 0\nTrue = 1", values=c("blue", "purple"))) grid.gedit(gPath("strip","label"),gp=gpar(fontsize="14", col="red&...