[Phylobase-commits] r264 - branches/pdcgsoc/R

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

Author: pdc
Date: 2008-08-07 01:20:18 +0200 (Thu, 07 Aug 2008)
New Revision: 264

Modified:
   branches/pdcgsoc/R/treePlot.R
Log:
hand a transposed data frame to accessory functions

Modified: branches/pdcgsoc/R/treePlot.R
===================================================================
--- branches/pdcgsoc/R/treePlot.R	2008-08-06 22:34:28 UTC (rev 263)
+++ branches/pdcgsoc/R/treePlot.R	2008-08-06 23:20:18 UTC (rev 264)
@@ -30,7 +30,7 @@
     if(type == 'cladogram') {
         xxyy$xx[phy at edge[, 2] <= Ntips] <- 1
     }
-
+    # TODO add symbols at the nodes, allow coloirng and sizing downViewport approach?
     # TODO cladogram methods incorrect
     # TODO abstract, make ultrametric? good algorithms for this?
     grid.newpage()
@@ -85,7 +85,7 @@
                         just = "left"
                         ))
                         grid.rect()
-                        tip.plot.fun(tdata(phy, which = 'tip')[i, ])
+                        tip.plot.fun(t(tdata(phy, which = 'tip')[i, ]))
                     upViewport()
                 }
                 upViewport()