para <- new("metaXpara")
pfile <- system.file("extdata/MTBLS79.txt",package = "metaX")
sfile <- system.file("extdata/MTBLS79_sampleList.txt",package = "metaX")
rawPeaks(para) <- read.delim(pfile,check.names = FALSE)
sampleListFile(para) <- sfile
para <- reSetPeaksData(para)
para <- missingValueImpute(para)
para <- transformation(para,method = 1,valueID = "value")
para <- metaX::preProcess(para,scale = "uv",center = TRUE,
valueID = "value")
rs <- createModels(para,method="plsda",group=c("S","C"),valueID="value")
Run the code above in your browser using DataLab