[Phylobase-commits] r552 - pkg/R

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

Author: francois
Date: 2009-08-21 19:20:36 +0200 (Fri, 21 Aug 2009)
New Revision: 552

Modified:
   pkg/R/class-phylo4d.R
Log:
removed obsolete part of code in definition of phylo4d class

Modified: pkg/R/class-phylo4d.R
===================================================================
--- pkg/R/class-phylo4d.R	2009-08-21 01:12:23 UTC (rev 551)
+++ pkg/R/class-phylo4d.R	2009-08-21 17:20:36 UTC (rev 552)
@@ -4,14 +4,12 @@
 setClass("phylo4d",
          representation(tip.data="data.frame",
                         node.data="data.frame"),
-         ##                        edgedata="data.frame"),
+
          prototype = list( tip.data = data.frame(NULL),
            node.data = data.frame(NULL) ),
-         ##all.data = data.frame(NULL) ),
+
          validity = function(object) {
-             ## FIXME: finish this by intercepting FALSE, char string, etc.
-             check1 <- checkData(object)
-             check2 <- checkPhylo4(object)
+             checkPhylo4(object)
          },
          contains="phylo4")