Mercurial > repos > ethevenot > univariate

comparison univariate_wrapper.R @ 2:09799fc16bc6 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/workflow4metabolomics/univariate.git commit 2c0d4d97c208edca1ada2035a7b7af9c4eb31afe
author ethevenot
date Sat, 06 Aug 2016 12:42:42 -0400
parents ef64d3752050
children 140290de7986
comparison
equal deleted inserted replaced
1:fdefbc780d2e 2:09799fc16bc6
9 } 9 }
10 10
11 source_local("univariate_script.R") 11 source_local("univariate_script.R")
12 12
13 argVc <- unlist(parseCommandArgs(evaluate=FALSE)) 13 argVc <- unlist(parseCommandArgs(evaluate=FALSE))
14
15
16 #### Start_of_tested_code <- function() {}
17
18 14
19 ##------------------------------ 15 ##------------------------------
20 ## Initializing 16 ## Initializing
21 ##------------------------------ 17 ##------------------------------
22 18
134 ## saving 130 ## saving
135 ##-------- 131 ##--------
136 132
137 varDF <- cbind.data.frame(variableMetadata = rownames(varDF), 133 varDF <- cbind.data.frame(variableMetadata = rownames(varDF),
138 varDF) 134 varDF)
135
139 write.table(varDF, 136 write.table(varDF,
140 file = argVc["variableMetadata_out"], 137 file = argVc["variableMetadata_out"],
141 quote = FALSE, 138 quote = FALSE,
142 row.names = FALSE, 139 row.names = FALSE,
143 sep = "\t") 140 sep = "\t")
150 147
151 sink() 148 sink()
152 149
153 options(stringsAsFactors = strAsFacL) 150 options(stringsAsFactors = strAsFacL)
154 151
155
156 #### End_of_tested_code <- function() {}
157
158
159 rm(list = ls()) 152 rm(list = ls())