final corrections for ape 3.0-6

[ape.git] / R / drop.tip.R

diff --git a/R/drop.tip.R b/R/drop.tip.R
index e9bd5c037364f4f8e20604ac3aff8ae6755a7b16..a720a7ca1561be9b9ab0cd166509df4109834771 100644 (file)
--- a/R/drop.tip.R
+++ b/R/drop.tip.R
@@ -1,4 +1,4 @@
-## drop.tip.R (2012-10-06)
+## drop.tip.R (2012-10-20)
 
 ##   Remove Tips in a Phylogenetic Tree
 
@@ -101,6 +101,7 @@ drop.tip <-
         if (is.character(tip))
             tip <- which(phy$tip.label %in% tip)
     }
+    if (!length(tip)) return(phy)
     if (any(tip > Ntip))
         warning("some tip numbers were higher than the number of tips")