## Not run:
# fit <- lmFit(y,design)
# fit <- eBayes(fit)
# plotExons(fit)
# plotExons(fit, exoncolname = "Start", rank = 1)
# plotExons(fit, geneid = "ps", genecolname = "Symbol", exoncolname = "Start")
# ## End(Not run)
Run the code above in your browser using DataLab