data(spliceset)
dataf <- as.data.frame(spliceset)
lm.panel <- function(x, y, ...) {
points(x,y,...)
p.lm <- lm(y~x); abline(p.lm)
}
## probe intensity values conditioned by the position of the probes on
## the mRNA
coplot(log(exprs) ~ Material | begin, data=dataf, panel=lm.panel)
Run the code above in your browser using DataLab