Mercurial > repos > lecorguille > xcms_group
comparison xcms_group.r @ 33:59943e24684b draft
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 5e066c50d2e4ac6d5796b53331cbd3198ab8c4f9-dirty
| author | lecorguille |
|---|---|
| date | Thu, 05 Apr 2018 18:08:20 -0400 |
| parents | 68282292acc4 |
| children | eddc995c6df1 |
comparison
equal
deleted
inserted
replaced
| 32:68282292acc4 | 33:59943e24684b |
|---|---|
| 101 xset <- getxcmsSetObject(xdata) | 101 xset <- getxcmsSetObject(xdata) |
| 102 print(xset) | 102 print(xset) |
| 103 cat("\n\n") | 103 cat("\n\n") |
| 104 | 104 |
| 105 #saving R data in .Rdata file to save the variables used in the present tool | 105 #saving R data in .Rdata file to save the variables used in the present tool |
| 106 objects2save <- c("xdata", "zipfile", "singlefile", "md5sumList", "sampleNamesList") | 106 objects2save = c("xdata","zipfile","singlefile","md5sumList","sampleNamesList", "chromTIC", "chromBPI", "chromTIC_adjusted", "chromBPI_adjusted") |
| 107 save(list=objects2save[objects2save %in% ls()], file="group.RData") | 107 save(list=objects2save[objects2save %in% ls()], file="group.RData") |
| 108 | 108 |
| 109 cat("\n\n") | 109 cat("\n\n") |
| 110 | 110 |
| 111 | 111 |