[Phylobase-commits] r181 - branches/pdcgsoc/tests

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

Author: pdc
Date: 2008-06-01 11:25:21 +0200 (Sun, 01 Jun 2008)
New Revision: 181

Modified:
   branches/pdcgsoc/tests/nexusdata.R
Log:
Merged test comments into branch, change 179

Modified: branches/pdcgsoc/tests/nexusdata.R
===================================================================
--- branches/pdcgsoc/tests/nexusdata.R	2008-06-01 09:00:51 UTC (rev 180)
+++ branches/pdcgsoc/tests/nexusdata.R	2008-06-01 09:25:21 UTC (rev 181)
@@ -1,17 +1,17 @@
 ## try to read NEXUS files
-library(phylobase)
-fn <- system.file("nexusfiles/treepluscharV01.nex",package="phylobase")
-td<-NexusToPhylo4D(fn)
-summary(td)
+## library(phylobase)
+## fn <- system.file("nexusfiles/treepluscharV01.nex",package="phylobase")
+## td<-NexusToPhylo4D(fn)
+## summary(td)
 ## would try plotting, but typically don't have enough room
 ## to plot data
 ## Error in .local(x, ...) : 
 ##    No room left to plot data; please try reducing ratio.tree or cex.label.
-plot(as(td,"phylo4"))
+## plot(as(td,"phylo4"))
 
 ## try to read a nexus file where the newick string describing the tree is split
 ## across several lines
-multiLine <- system.file("nexusfiles/MultiLineTrees.nex",package="phylobase")
-multiLineTrees <-NexusToPhylo4(multiLine)
-summary(multiLineTrees)
+## multiLine <- system.file("nexusfiles/MultiLineTrees.nex",package="phylobase")
+## multiLineTrees <-NexusToPhylo4(multiLine)
+## summary(multiLineTrees)