fixes for ape 2.3-1

[ape.git] / R / ltt.plot.R

diff --git a/R/ltt.plot.R b/R/ltt.plot.R
index 15b53f8744e59dc8110f7bd3501f8bf8ea8998a4..a7eae04323169877a30c86b15984fa2256936e77 100644 (file)
--- a/R/ltt.plot.R
+++ b/R/ltt.plot.R
@@ -35,7 +35,7 @@ mltt.plot <- function(phy, ..., dcol = TRUE, dlty = FALSE, legend = TRUE,
         y <- 1:length(x)
         cbind(x, y)
     }
-    if if (inherits(phy, "phylo")) { # if a tree of class "phylo"
+    if (inherits(phy, "phylo")) { # if a tree of class "phylo"
         TREES <- list(ltt.xy(phy))
         names(TREES) <- deparse(substitute(phy))
     } else { # a list of trees