# HG changeset patch # User vandelj # Date 1601023891 0 # Node ID 738ed1deed2351e33227b60da837577a8bf382eb # Parent d72f1bc5ce9e5dedca3e39d29d7ec8530b56d932 "planemo upload for repository https://github.com/juliechevalier/GIANT/tree/master commit 89b7d0e8812f53222691cffe29bd48be6519829d" diff -r d72f1bc5ce9e -r 738ed1deed23 src/utils.R --- a/src/utils.R Wed Sep 09 10:36:26 2020 +0000 +++ b/src/utils.R Fri Sep 25 08:51:31 2020 +0000 @@ -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) }