load("~/r/marray/plotprintseq.RData")
load("~/r/marray/xplot.RData")
load("~/courses/biosummer/slide.image.RData")
plotim <- slide.image
> args(xplot)
function (data = coralRG$R, images = 1:6, layout = coralRG$printer, 
    mfrow = c(3, 2), FUN = slide.image, device = "", nam = NULL, 
    width = 7.5, height = 10, legend = c("1:R/G", "2:G/R", "3:R/G", 
        "4:G/R", "5:R/G", "6:G/R"), oma = rep(0.6, 4), fname = NULL) 
NULL
