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