[Phylobase-commits] r441 - pkg/R

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

Author: regetz
Date: 2009-06-20 03:17:58 +0200 (Sat, 20 Jun 2009)
New Revision: 441

Modified:
   pkg/R/methods-phylo4.R
Log:
fixed edgeLength method to match nodes correctly to their corresponding
edge lengths (bug #463)


Modified: pkg/R/methods-phylo4.R
===================================================================
--- pkg/R/methods-phylo4.R	2009-06-20 01:08:36 UTC (rev 440)
+++ pkg/R/methods-phylo4.R	2009-06-20 01:17:58 UTC (rev 441)
@@ -93,7 +93,7 @@
           return(x at edge.length)
       else {
           n <- getNode(x,which)
-          return(x at edge.length[n])
+          return(x at edge.length[match(n, x at edge[,2])])
       }
     }
 })