if (FALSE) {
library(RPPanalyzer)
# input data
dataDir<-system.file("extdata",package="RPPanalyzer")
x<-dataPreproc(dataDir=dataDir, blocks=12, spot="aushon", exportNo=4)
x.norm<-x$normdat
# get log2 list
x.log<-logList(x.norm)
}
Run the code above in your browser using DataLab