[Phylobase-commits] r412 - pkg/R

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

Author: skembel
Date: 2008-12-30 20:21:03 +0100 (Tue, 30 Dec 2008)
New Revision: 412

Modified:
   pkg/R/setAs-Methods.R
Log:
Update as(phylo,phylo4) to keep root edge at position nTips+1 in edgematrix for consistency with ape

Modified: pkg/R/setAs-Methods.R
===================================================================
--- pkg/R/setAs-Methods.R	2008-12-30 18:42:00 UTC (rev 411)
+++ pkg/R/setAs-Methods.R	2008-12-30 19:21:03 UTC (rev 412)
@@ -15,7 +15,7 @@
             }
         }
         if (!is.null(from$edge.label)) {
-            from$edge.label <- c(from$edge.label,paste("E",root.edge,sep=""))
+            from$edge.label <- c(from$edge.label,NA)
         }
     }
     newobj <- phylo4(from$edge, from$edge.length, from$tip.label,