Merge pull request #254 from manor/patch-1

Fix incorrect use of distfun_row and hclustfun_row
talgalili · Oct 9, 2020 · d4bf770 · d4bf770
2 parents b5fc000 + 6ff305c
commit d4bf770
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/heatmapr.R b/R/heatmapr.R
@@ -339,7 +339,7 @@ heatmapr <- function(x,
     Colv <- Rowv
   }
   if (isTRUE(Colv)) {
-    Colv <- create_dend(t(x), seriate, distfun_row, hclustfun_row, na.rm)
+    Colv <- create_dend(t(x), seriate, distfun_col, hclustfun_col, na.rm)
   }
   if (is.numeric(Colv)) {
     Colv <- reorderfun(as.dendrogram(hclustfun_col(distfun_col(t(x)))), rev(Colv))