[Adephylo-commits] r128 - pkg/R

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

Author: jombart
Date: 2009-11-05 12:10:29 +0100 (Thu, 05 Nov 2009)
New Revision: 128

Modified:
   pkg/R/partition.R
Log:
@node.label issues.


Modified: pkg/R/partition.R
===================================================================
--- pkg/R/partition.R	2009-11-05 11:08:02 UTC (rev 127)
+++ pkg/R/partition.R	2009-11-05 11:10:29 UTC (rev 128)
@@ -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 <- as.character(HTU.idx)
+        nodeLabels(x) <- as.character(HTU.idx)
     }
 
     ## function coding one dummy vector