X-Git-Url: https://git.donarmstrong.com/?p=ape.git;a=blobdiff_plain;f=R%2Fltt.plot.R;h=98f188d8c0edbbcf515946b20d3d3740cbcb9e97;hp=520294fc9cb68c4313637c65bf5b6f3e33bbe525;hb=756ad52b92dc1ac2922cf62ce882469ad4cacc2c;hpb=bfd7604547c1dd38cd97707c184bebf3525cf426

diff --git a/R/ltt.plot.R b/R/ltt.plot.R
index 520294f..98f188d 100644
--- 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