## Not run:
# 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)
# ratioPairs(para) <- "S:C"
# addValueNorm(para) <- para
# plsdaPara <- new("plsDAPara")
# res <- peakStat(para,plsdaPara)
# ## End(Not run)
Run the code above in your browser using DataLab