Mercurial > repos > ethevenot > multivariate

diff multivariate_wrapper.R @ 3:e91de3b04320 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/multivariate.git commit bb92582ec396fd845b49454c4cadd86fbfc73fab
author ethevenot
date Sat, 22 Oct 2016 03:02:47 -0400
parents fa173e12e185
children 5526f8258e8a
line wrap: on
line diff
--- a/multivariate_wrapper.R	Sat Aug 06 12:07:13 2016 -0400
+++ b/multivariate_wrapper.R	Sat Oct 22 03:02:47 2016 -0400
@@ -398,7 +398,10 @@
 }
 if(!is.null(coeMN)) {
     pCompMN <- cbind(pCompMN, coeMN)
-    colnames(pCompMN)[ncol(pCompMN)] <- paste0(rspModC, "_COEFF")
+    if(ncol(coeMN) == 1)
+        colnames(pCompMN)[ncol(pCompMN)] <- paste0(rspModC, "_COEFF")
+    else
+        colnames(pCompMN)[(ncol(pCompMN) - ncol(coeMN) + 1):ncol(pCompMN)] <- paste0(rspModC, "_", colnames(coeMN), "-COEFF")
 }
 pCompDF <- as.data.frame(pCompMN)[rownames(varDF), , drop = FALSE]
 varDF <- cbind.data.frame(varDF, pCompDF)