fixed bug in treatmap

MicrobiologyETHZ · Jun 5, 2019 · dc05642 · dc05642
1 parent 8b0a514
commit dc05642
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/summary_functions.r b/R/summary_functions.r
@@ -87,7 +87,7 @@ treatmap <- function(phylo,mat,mask=NULL,mask.color="lightgrey",overlay=NULL,asp
 
     # Use mat.phylo if given, otherwise mat.col.order preferentially over mat.hclust to hierarchically cluster the matrix columns
     if(!is.null(mat.phylo)){
-        hc = list(order=match(mat.phylo$tip.label,colnames(fc6c)))
+        hc = list(order=match(mat.phylo$tip.label,colnames(mat)))
     }else if(!is.null(mat.col.order)){
         hc = list(order=mat.col.order)
     }else if(mat.hclust){