[Adephylo-commits] r120 - pkg/R

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

Author: sdray
Date: 2009-01-12 15:11:37 +0100 (Mon, 12 Jan 2009)
New Revision: 120

Modified:
   pkg/R/partition.R
Log:
nodes labels must be characters

Modified: pkg/R/partition.R
===================================================================
--- pkg/R/partition.R	2009-01-12 14:10:54 UTC (rev 119)
+++ pkg/R/partition.R	2009-01-12 14:11:37 UTC (rev 120)
@@ -50,7 +50,7 @@
     HTU.idx <- (n+1):(n+nNodes(x)) # index of internal nodes (HTU)
 
     if(!hasNodeLabels(x)) { # node labels will be used after
-        x at node.label <- HTU.idx
+        x at node.label <- as.character(HTU.idx)
     }
 
     ## function coding one dummy vector