a fix in cophyloplot()

[ape.git] / R / cophyloplot.R

diff --git a/R/cophyloplot.R b/R/cophyloplot.R
index faf9e34ae792f5571dc4b80910e4514c27b3b719..85f091fd8614bc15176e8f7691a6e20601de7958 100644 (file)
--- a/R/cophyloplot.R
+++ b/R/cophyloplot.R
@@ -1,4 +1,4 @@
-## cophyloplot.R (2010-03-18)
+## cophyloplot.R (2012-02-14)
 
 ##   Plots two phylogenetic trees face to
 ##   face with the links between the tips
@@ -29,14 +29,10 @@ cophyloplot <-
             if (click < length(res$a[, 1]) + 1) {
                 if (click > res$N.tip.x)
                   x <- rotate(x, click)
-            }
-            else if (click < length(res$c[, 1]) + 1) {
+            } else if (click < length(res$c[, 1]) + 1) {
                 if (click > length(res$a[, 1]) + res$N.tip.y)
                   y <- rotate(y, click - length(res$a[, 1]))
             }
-            plotCophylo2(x, y, assoc = assoc, use.edge.length = use.edge.length,
-                space = space, length.line = length.line, gap = gap,
-                type = type, return = TRUE, col = col, lwd=lwd, lty=lty, show.tip.label = show.tip.label, font = font)
         }
         on.exit(print("done"))
     }