[Phylobase-commits] r197 - branches/pdcgsoc/misc

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

Author: pdc
Date: 2008-07-09 10:13:54 +0200 (Wed, 09 Jul 2008)
New Revision: 197

Modified:
   branches/pdcgsoc/misc/temp.R
Log:
silly bug fixes


Modified: branches/pdcgsoc/misc/temp.R
===================================================================
--- branches/pdcgsoc/misc/temp.R	2008-07-09 07:43:05 UTC (rev 196)
+++ branches/pdcgsoc/misc/temp.R	2008-07-09 08:13:54 UTC (rev 197)
@@ -1,10 +1,12 @@
+require(phylobase)
+require(grid)
 treePlot <- function(phy, type = 'phylogram', tip.order = NULL) {
     
-    if (type = 'phylogram') {
+    if (type == 'phylogram') {
         xxyy <- phyloXXYY(phy, tip.order)
     }
     
-    if (type = 'unrooted') {
+    if (type == 'unrooted') {
         xxyy <- unrootxxyy(phy)
     }
     
@@ -130,5 +132,5 @@
 
 ## How do we translate this info into a plot?
 ## Test code
-## out <- scratch(foo <- as(rcoal(5), 'phylo4'))
+out <- phyloXXYY(foo <- as(rcoal(5), 'phylo4'))