Mercurial > repos > tomnl > track_rt_raw
comparison track_rt_raw.R @ 0:b96fc0da0a32 draft
planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit f9591483bef88aef71a9f0cc0ffc75cf6eab480c
| author | tomnl |
|---|---|
| date | Mon, 05 Mar 2018 10:05:57 -0500 |
| parents | |
| children | e2635fa802bd |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:b96fc0da0a32 |
|---|---|
| 1 library(optparse) | |
| 2 | |
| 3 option_list <- list( | |
| 4 make_option(c("--xset_path"), type="character"), | |
| 5 make_option(c("-o", "--out_dir"), type="character") | |
| 6 ) | |
| 7 | |
| 8 # store options | |
| 9 opt<- parse_args(OptionParser(option_list=option_list)) | |
| 10 | |
| 11 load(opt$xset_path) | |
| 12 | |
| 13 print(xset) | |
| 14 | |
| 15 rtraw <- xset@peaks[,c('rt', 'rtmin', 'rtmax')] | |
| 16 colnames(rtraw) <- c('rt_raw','rtmin_raw','rtmax_raw') | |
| 17 xset@peaks <- cbind(xset@peaks, rtraw) | |
| 18 | |
| 19 | |
| 20 print('saving RData') | |
| 21 save.image(file.path(opt$out_dir, 'xset_rt_raw_tracked.RData')) |