###################################################
### chunk number 1: setup
###################################################
#line 20 "E:/SinglePackageBuilder/job_44_merlot2/IWB2011/inst/doc/Feature-Address.Rnw"
options(width = 40)


###################################################
### chunk number 2: comprehensive eval=FALSE
###################################################
## #line 114 "E:/SinglePackageBuilder/job_44_merlot2/IWB2011/inst/doc/Feature-Address.Rnw"
## ## 
## ## Pre-processing
## library(affy)
## eset <- just.rma()
## ## 
## ## Quality assessment
## library(arrayQualityMetrics)
## arrayQualityMetrics(eset)
## ## 
## ## Differential expression
## library(limma)
## status <- 
##   c("Trt", "Trt", "Trt", "Ctrl", "Ctrl", "Ctrl")
## design <- model.matrix( ~status )
## fit <- eBayes(lmFit(eset, design))
## topTable(fit, coef=2)


###################################################
### chunk number 3: ALL-output
###################################################
#line 298 "E:/SinglePackageBuilder/job_44_merlot2/IWB2011/inst/doc/Feature-Address.Rnw"
library(ALL); data(ALL); ALL


