################################################### ### chunk number 1: exampledata ################################################### #line 29 "vignettes/splots/inst/doc/splotsHOWTO.Rnw" library("splots") screen = lapply(1:12, function(i) cumsum(rnorm(384))) names(screen) = paste("plate", LETTERS[seq(along=screen)]) ################################################### ### chunk number 2: ################################################### #line 37 "vignettes/splots/inst/doc/splotsHOWTO.Rnw" plotScreen(screen, ncol=3) ################################################### ### chunk number 3: ################################################### #line 45 "vignettes/splots/inst/doc/splotsHOWTO.Rnw" plotScreen(screen, ncol=2, do.legend=FALSE) ################################################### ### chunk number 4: ################################################### #line 53 "vignettes/splots/inst/doc/splotsHOWTO.Rnw" plotScreen(screen, ncol=4, fill=c("white", "darkblue"), main="Example data", legend.label=expression(bar(x) == sum(x[i], i==1, n))) ################################################### ### chunk number 5: ################################################### #line 63 "vignettes/splots/inst/doc/splotsHOWTO.Rnw" for(i in seq(along=screen)) screen[[i]][sample(384, 5)] = NA plotScreen(screen, ncol=4, do.names=FALSE, main="Example data", legend.label="Legend label") ################################################### ### chunk number 6: sessionInfo ################################################### #line 77 "vignettes/splots/inst/doc/splotsHOWTO.Rnw" toLatex(sessionInfo())