X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fcophyloplot.R;h=85f091fd8614bc15176e8f7691a6e20601de7958;hb=bb212c8b0bb52b72923c0e9a6ec942b81c681a38;hp=faf9e34ae792f5571dc4b80910e4514c27b3b719;hpb=21eb56120c84786502f24ff9c27b39d5badfe1f7;p=ape.git

diff --git a/R/cophyloplot.R b/R/cophyloplot.R
index faf9e34..85f091f 100644
--- 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"))
     }