Mercurial > repos > tomnl > flag_remove_peaks

comparison cameradims.R @ 4:effabeb7dbd2 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/computational-metabolomics/dma-tools-galaxy commit 578fd07833b93847193666c11744ba0bca1aaf57-dirty
author tomnl
date Thu, 03 May 2018 06:44:40 -0400
parents 0272aa95b20d
children 8c260c096cf8
comparison
equal deleted inserted replaced
3:0272aa95b20d 4:effabeb7dbd2
79 79
80 df <- df[df$i>opt$intensity_filter,] 80 df <- df[df$i>opt$intensity_filter,]
81 81
82 82
83 if (opt$rule_type=='extended_large'){ 83 if (opt$rule_type=='extended_large'){
84 opt$rule_type <- 'user'
84 if(opt$polarity=='pos'){ 85 if(opt$polarity=='pos'){
85 opt$rule_path <- read.csv(system.file("rules", "CAMERA_rules_PosFinal_PlusLi.csv", package = "cameraDIMS"), header=TRUE) 86 opt$rule_path <- read.csv(system.file("rules", "CAMERA_rules_PosFinal_PlusLi.csv", package = "cameraDIMS"), header=TRUE)
86 }else{ 87 }else{
87 opt$rule_path <- read.csv(system.file("rules", "CAMERA_rules_NegFinal_PlusLi.csv", package = "cameraDIMS"), header=TRUE) 88 opt$rule_path <- read.csv(system.file("rules", "CAMERA_rules_NegFinal_PlusLi.csv", package = "cameraDIMS"), header=TRUE)
88 } 89 }