Mercurial > repos > lecorguille > xcms_xcmsset
diff xcms_xcmsSet.r @ 34:efd23113d5f4 draft
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 49203f8a5271fa5e6bb889e907df71ebf7757309
author | lecorguille |
---|---|
date | Thu, 08 Mar 2018 05:51:32 -0500 |
parents | c363b9f1caef |
children | 7f636ad1162b |
line wrap: on
line diff
--- a/xcms_xcmsSet.r Mon Mar 05 04:15:34 2018 -0500 +++ b/xcms_xcmsSet.r Thu Mar 08 05:51:32 2018 -0500 @@ -115,18 +115,6 @@ # Create a sampleMetada file sampleNamesList <- getSampleMetadata(xdata=xdata, sampleMetadataOutput="sampleMetadata.tsv") -# Get the legacy xcmsSet object -xset <- getxcmsSetObject(xdata) - -cat("\n\n") - - -# -- TIC -- -cat("\t\tGET TIC GRAPH\n") -#@TODO: one day, use xdata instead of xset to draw the TICs and BPC or a complete other method -getTICs(xcmsSet=xset, rt="raw", pdfname="TICs.pdf") -getBPCs(xcmsSet=xset, rt="raw", pdfname="BICs.pdf") - cat("\n\n") # ----- EXPORT ----- @@ -136,6 +124,8 @@ cat("\n\n") cat("\txcmsSet OBJECT INFO\n") +# Get the legacy xcmsSet object +xset <- getxcmsSetObject(xdata) print(xset) cat("\n\n")