[Phylobase-commits] r344 - pkg/R

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

Author: bbolker
Date: 2008-12-19 22:02:07 +0100 (Fri, 19 Dec 2008)
New Revision: 344

Modified:
   pkg/R/methods-phylo4.R
Log:
 nodeId(x,"all") fix



Modified: pkg/R/methods-phylo4.R
===================================================================
--- pkg/R/methods-phylo4.R	2008-12-19 20:50:20 UTC (rev 343)
+++ pkg/R/methods-phylo4.R	2008-12-19 21:02:07 UTC (rev 344)
@@ -129,7 +129,7 @@
   switch(which,
          internal=x at edge[x at edge[,2]>nTips(x),2],
          tip = x at edge[x at edge[,2]<=nTips(x),2],
-         all = x at edge[x at edge[,2]])
+         all = x at edge[,2])
 })
 
 setReplaceMethod("nodeLabels", "phylo4",