[Phylobase-commits] r333 - pkg/R

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

Author: skembel
Date: 2008-12-19 17:18:58 +0100 (Fri, 19 Dec 2008)
New Revision: 333

Modified:
   pkg/R/methods-phylo4.R
Log:
Temporary kludge disable check for root.node slot in rootNode until we fix

Modified: pkg/R/methods-phylo4.R
===================================================================
--- pkg/R/methods-phylo4.R	2008-12-19 15:43:38 UTC (rev 332)
+++ pkg/R/methods-phylo4.R	2008-12-19 16:18:58 UTC (rev 333)
@@ -82,8 +82,9 @@
 setMethod("rootNode", "phylo4", function(x) {
     if (!isRooted(x))
         return(NA)
-    if (!is.na(x at root.edge))
-        stop("FIXME: don't know what to do in this case")
+    #fixme SWK disabling check for root.edge for now until we fix
+    #if (!is.na(x at root.edge))
+    #    stop("FIXME: don't know what to do in this case")
     ## BMB: danger!  do we require this??? fixme
     ## return(nTips(x) + 1)
     ## FM: alternative?