[Phylobase-commits] r370 - in pkg: R man

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

Author: pdc
Date: 2008-12-20 05:05:53 +0100 (Sat, 20 Dec 2008)
New Revision: 370

Modified:
   pkg/R/treePlot.R
   pkg/man/phyloXXYY.Rd
Log:
fixed issue with unequal xx and yy vectors

Modified: pkg/R/treePlot.R
===================================================================
--- pkg/R/treePlot.R	2008-12-20 03:55:20 UTC (rev 369)
+++ pkg/R/treePlot.R	2008-12-20 04:05:53 UTC (rev 370)
@@ -307,7 +307,7 @@
 
 phyloXXYY <- function(phy, tip.order = NULL) {
     ## initalize the output
-    Nedges <- nrow(phy at edge) - 1 ## TODO switch to the accessor once stablized
+    Nedges <- nrow(phy at edge) ## TODO switch to the accessor once stablized
     phy.orig <- phy
     Ntips  <- nTips(phy)
     xxyy = list(

Modified: pkg/man/phyloXXYY.Rd
===================================================================
--- pkg/man/phyloXXYY.Rd	2008-12-20 03:55:20 UTC (rev 369)
+++ pkg/man/phyloXXYY.Rd	2008-12-20 04:05:53 UTC (rev 370)
@@ -28,8 +28,7 @@
 
 data(geospiza)
 coor <- phyloXXYY(geospiza)
-## na.omit is temporary hack
-plot(coor$xx, na.omit(coor$yy), pch = 20)
+plot(coor$xx, coor$yy, pch = 20)
 
 }
 \keyword{methods}