[Phylobase-commits] r539 - pkg/R

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

Author: francois
Date: 2009-08-20 21:13:49 +0200 (Thu, 20 Aug 2009)
New Revision: 539

Modified:
   pkg/R/methods-phylo4d.R
Log:
addData now accepts phylo4 objects and converts them as phylo4d

Modified: pkg/R/methods-phylo4d.R
===================================================================
--- pkg/R/methods-phylo4d.R	2009-08-20 19:09:27 UTC (rev 538)
+++ pkg/R/methods-phylo4d.R	2009-08-20 19:13:49 UTC (rev 539)
@@ -175,6 +175,14 @@
     x
 })
 
+setMethod("addData", "phylo4", function(x, tip.data=NULL, node.data=NULL,
+                                        all.data=NULL, pos=c("after", "before"),
+                                        merge.data=TRUE, match.data=TRUE,
+                                        ...) {
+    phylo4d(x, tip.data=tip.data, node.data=node.data, all.data=all.data,
+            merge.data=merge.data, match.data=match.data, ...)
+})
+
 ## Alternative phylo4d summary method, using phylo4 summary
 ## Marguerite Butler & Peter Cowan
 setMethod("summary", "phylo4d", function(object) {