## 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)
# addValueNorm(para) <- para
# res <- myCalcAUROC(para,cgroup=c("S","C"))
# ## End(Not run)
Run the code above in your browser using DataLab