[Adephylo-commits] r123 - pkg/R

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

Author: jombart
Date: 2009-11-05 11:26:12 +0100 (Thu, 05 Nov 2009)
New Revision: 123

Modified:
   pkg/R/partition.R
Log:
fixed call to descendants: which-> type


Modified: pkg/R/partition.R
===================================================================
--- pkg/R/partition.R	2009-11-05 10:23:42 UTC (rev 122)
+++ pkg/R/partition.R	2009-11-05 10:26:12 UTC (rev 123)
@@ -93,7 +93,7 @@
     names(nbOfDD) <- HTU.idx # used to match the results of Dn
 
     findAlldHTU <- function(node){ # find all HTU descending from a node
-        res <- descendants(x, node, which="all") # tips and HTU
+        res <- descendants(x, node, type="all") # tips and HTU
         res <- res[res > n] # only HTU (here, just node numbers are kept
         if(length(res)==0) return(NULL)
         return(res)