[Phylobase-commits] r366 - pkg/tests

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

Author: bbolker
Date: 2008-12-20 04:43:27 +0100 (Sat, 20 Dec 2008)
New Revision: 366

Modified:
   pkg/tests/misctests.R
Log:
  a few more misc bits



Modified: pkg/tests/misctests.R
===================================================================
--- pkg/tests/misctests.R	2008-12-20 03:39:11 UTC (rev 365)
+++ pkg/tests/misctests.R	2008-12-20 03:43:27 UTC (rev 366)
@@ -88,3 +88,18 @@
 tdata(obj4) <- subset(tdata(obj4),select=sapply(tdata(obj4),class)=="numeric")
 
 treePlot(obj4)
+
+E <- matrix(c(
+    8,  9, 
+    9, 10, 
+   10,  1, 
+   10,  2, 
+    9,  3, 
+    9,  4, 
+    8, 11, 
+   11,  5, 
+   11,  6, 
+   11,  7, 
+   NA,  8), ncol=2,byrow=TRUE) 
+
+P2 <- phylo4(E)