[Phylobase-commits] r439 - pkg/R

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

Author: regetz
Date: 2009-06-20 03:00:48 +0200 (Sat, 20 Jun 2009)
New Revision: 439

Modified:
   pkg/R/setAs-Methods.R
Log:
fixed phylo4->data.frame coercion in cases of unrooted trees lacking
edge lengths (bug #461)


Modified: pkg/R/setAs-Methods.R
===================================================================
--- pkg/R/setAs-Methods.R	2009-06-17 15:58:33 UTC (rev 438)
+++ pkg/R/setAs-Methods.R	2009-06-20 01:00:48 UTC (rev 439)
@@ -156,7 +156,7 @@
         edge.length <- edgeLength(x)[match(nmE, names(x at edge.length))]
     }
     else {
-        edge.length <- rep(NA, nEdges(x))
+        edge.length <- rep(NA, nrow(E))
     }
 
     label <- labels(x,which="all")[node]