[Adephylo-commits] r25 - pkg/R

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

Author: jombart
Date: 2008-11-25 16:23:15 +0100 (Tue, 25 Nov 2008)
New Revision: 25

Modified:
   pkg/R/utils.R
Log:
Fixes in sp.tips.


Modified: pkg/R/utils.R
===================================================================
--- pkg/R/utils.R	2008-11-25 13:16:57 UTC (rev 24)
+++ pkg/R/utils.R	2008-11-25 15:23:15 UTC (rev 25)
@@ -1,11 +1,11 @@
 ##########
 # sp.tips
 ##########
-sp.tips <- function(phy, tip1, tip2, useTipNames=FALSE, quiet=FALSE){
+sp.tips <- function(x, tip1, tip2, useTipNames=FALSE, quiet=FALSE){
     if(!require(phylobase)) stop("phylobase package is not installed")
 
     ## conversion from phylo, phylo4 and phylo4d
-    x <- as(phy, "phylo4")
+    x <- as(x, "phylo4")
 
     ## some checks
     if (is.character(checkval <- check_phylo4(x))) stop(checkval)