if (length(dir(pattern=".cel$")) != 0) {
## Read in the *.CEL files
abatch <- ReadAffy()
## compute SF and SDT
SfSdt <- computeSFandSDT(abatch)
## show verbose output
SfSdt <- computeSFandSDT(abatch,verbose=TRUE)
## plot PM and MM histograms for each *.CEL file
SfSdt <- computeSFandSDT(abatch,plot.histogram=TRUE)
}
Run the code above in your browser using DataLab