various bug fixes

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

diff --git a/R/ltt.plot.R b/R/ltt.plot.R
index 520294fc9cb68c4313637c65bf5b6f3e33bbe525..98f188d8c0edbbcf515946b20d3d3740cbcb9e97 100644 (file)
--- a/R/ltt.plot.R
+++ b/R/ltt.plot.R
@@ -99,7 +99,7 @@ mltt.plot <-
         mc <- as.character(match.call())[-(1:2)]
         nms <- mc[1:n]
         for (i in 1:n) {
-            if (class(dts[[i]]) == "phylo") {
+            if (inherits(dts[[i]], "phylo")) {
                 a <- list(ltt.plot.coords(dts[[i]], backward, tol))
                 names(a) <- nms[i]
             } else { # a list of trees