[Adephylo-commits] r178 - pkg/R

[noreply at r-forge.r-project.org]

Author: jombart
Date: 2012-02-15 01:47:10 +0100 (Wed, 15 Feb 2012)
New Revision: 178

Modified:
   pkg/R/tree.group.R
Log:
Fixed a minor bug - renaming of output doesn't work with duplicate tip labels.


Modified: pkg/R/tree.group.R
===================================================================
--- pkg/R/tree.group.R	2012-02-14 19:56:23 UTC (rev 177)
+++ pkg/R/tree.group.R	2012-02-15 00:47:10 UTC (rev 178)
@@ -117,7 +117,7 @@
     annot <- rep(" ", N)
     annot[as.character(grp)!=as.character(temp)] <- "!"
     groups <- data.frame(observed=grp, inferred=temp, annot=annot)
-    rownames(groups) <- rownames(prob)
+    ##rownames(groups) <- rownames(prob)
 
 
     ## BUILD / RETURN RESULT ##