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

diff --git a/R/cophyloplot.R b/R/cophyloplot.R
index faf9e34..29e5b3c 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"))
     }
@@ -46,11 +42,11 @@ cophyloplot <-
 }
 
 plotCophylo2 <-
-    function (x, y, assoc = assoc, use.edge.length = use.edge.length,
-              space = space, length.line = length.line, gap = gap,
-              type = type, return = return, col = col, lwd=lwd, lty=lty,
-              show.tip.label = show.tip.label,
-              font = font, ...)
+    function(x, y, assoc = assoc, use.edge.length = use.edge.length,
+             space = space, length.line = length.line, gap = gap,
+             type = type, return = return, col = col, lwd=lwd, lty=lty,
+             show.tip.label = show.tip.label,
+             font = font, ...)
 {
     res <- list()
 ###choice of the minimum space between the trees