Repository 'giant_limma_analysis'
hg clone https://toolshed.g2.bx.psu.edu/repos/vandelj/giant_limma_analysis

Changeset 2:3dc31e252649 (2020-09-25)
Previous changeset 1:9f2ddab68c9e (2020-09-09)
Commit message:
"planemo upload for repository https://github.com/juliechevalier/GIANT/tree/master commit 89b7d0e8812f53222691cffe29bd48be6519829d"
modified:
src/utils.R
b
diff -r 9f2ddab68c9e -r 3dc31e252649 src/utils.R
--- a/src/utils.R Wed Sep 09 10:28:02 2020 +0000
+++ b/src/utils.R Fri Sep 25 08:52:08 2020 +0000
b
@@ -18,7 +18,7 @@
 distExtended <- function(x,method) {
   if(method %in% c("euclidean", "maximum", "manhattan", "canberra", "binary", "minkowski"))return(dist(x,method = method))
   if(method %in% c("pearson", "spearman", "kendall"))return(as.dist(1-cor(t(x),method=method))/2)
-  if(method %in% c("absPearson", "absSpearman", "absKendall"))return(as.dist(1-abs(cor(t(x),method=method))))
+  if(method %in% c("absPearson", "absSpearman", "absKendall"))return(as.dist(1-abs(cor(t(x),method=tolower(substr(method,4,15))))))
   return(NULL)
 }