[Phylobase-commits] r180 - pkg/tests

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

Author: pdc
Date: 2008-06-01 11:00:51 +0200 (Sun, 01 Jun 2008)
New Revision: 180

Modified:
   pkg/tests/nexusdata.R
Log:
committing out NCL tests, as they cause R CMD check to fail

Modified: pkg/tests/nexusdata.R
===================================================================
--- pkg/tests/nexusdata.R	2008-05-31 19:42:00 UTC (rev 179)
+++ pkg/tests/nexusdata.R	2008-06-01 09:00:51 UTC (rev 180)
@@ -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)