[Phylobase-commits] r149 - pkg/R

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

Author: pdc
Date: 2008-03-08 01:08:45 +0100 (Sat, 08 Mar 2008)
New Revision: 149

Added:
   pkg/R/tbind.R
Removed:
   pkg/R/multiphylo.R
Log:
only one function remained in multiphylo.R rename to tbind.R

Deleted: pkg/R/multiphylo.R
===================================================================
--- pkg/R/multiphylo.R	2008-03-08 00:07:44 UTC (rev 148)
+++ pkg/R/multiphylo.R	2008-03-08 00:08:45 UTC (rev 149)
@@ -1,22 +0,0 @@
-## function to bind trees together into a multi-tree object
-
-tbind <- function(..., check_data = FALSE) {
-    L <- as.list(...)
-    treeclasses <- c("multiPhylo4d", "multiPhylo4", "phylo4", 
-        "phylo4d")
-    tdataclasses <- c("multiPhylo4d", "phylo4d")
-    classes <- sapply(L, class)
-    if (!all(classes %in% treeclasses)) 
-        stop("all elements must be trees or multitrees")
-        ## decompose multi-trees into lists
-        ## bind list into multi-tree
-    if (!all(classes %in% tdataclasses)) {
-        if (any(classes %in% tdataclasses)) 
-            warning("not all elements contain data: data discarded")
-    ## check: all data identical?
-    ## decompose multi-trees into lists
-    }
-    else {
-    }
-}
-

Copied: pkg/R/tbind.R (from rev 148, pkg/R/multiphylo.R)
===================================================================
--- pkg/R/tbind.R	                        (rev 0)
+++ pkg/R/tbind.R	2008-03-08 00:08:45 UTC (rev 149)
@@ -0,0 +1,22 @@
+## function to bind trees together into a multi-tree object
+
+tbind <- function(..., check_data = FALSE) {
+    L <- as.list(...)
+    treeclasses <- c("multiPhylo4d", "multiPhylo4", "phylo4", 
+        "phylo4d")
+    tdataclasses <- c("multiPhylo4d", "phylo4d")
+    classes <- sapply(L, class)
+    if (!all(classes %in% treeclasses)) 
+        stop("all elements must be trees or multitrees")
+        ## decompose multi-trees into lists
+        ## bind list into multi-tree
+    if (!all(classes %in% tdataclasses)) {
+        if (any(classes %in% tdataclasses)) 
+            warning("not all elements contain data: data discarded")
+    ## check: all data identical?
+    ## decompose multi-trees into lists
+    }
+    else {
+    }
+}
+