X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fltt.plot.R;h=a7eae04323169877a30c86b15984fa2256936e77;hb=f3304b6f40610d9b7306a9275d593b5c038ab0a0;hp=15b53f8744e59dc8110f7bd3501f8bf8ea8998a4;hpb=4ceef408de61dc86f0a93b0396aecc6e30cc0d70;p=ape.git

diff --git a/R/ltt.plot.R b/R/ltt.plot.R
index 15b53f8..a7eae04 100644
--- 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