if (FALSE) {
library(gcspikelite)
data(targets)
files <- list.files(system.file('data',package = 'gcspikelite'),full.names = TRUE)
files <- files[sapply(files,grepl,pattern = 'CDF')]
instrumental <- createInstrumentalTable(files)
phenotype <- createPhenoTable(files,as.character(targets$Group[order(targets$FileName)]))
ex <- newExp(instrumental = instrumental,
phenotype = phenotype, info = "DEMO Experiment")
}
Run the code above in your browser using DataLab