bug fix in read.nexus()

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

diff --git a/R/plot.cophylo.R b/R/plot.cophylo.R
index 7589f6aee36ccd42114b3692901faaba89ac5263..6625473d8a762acef4af3ceaf3b6d2823596cfa0 100644 (file)
--- a/R/plot.cophylo.R
+++ b/R/plot.cophylo.R
@@ -12,7 +12,7 @@ plot.cophylo <-
     function (x, y, assoc = NULL, use.edge.length = FALSE, space = 0,
               length.line = 1, gap = 2, type = "phylogram",
               rotate = FALSE, col = "red", show.tip.label = TRUE,
-              font = 3)
+              font = 3, ...)
 {
     if (is.null(assoc)) {
         assoc <- matrix(ncol = 2)
@@ -51,7 +51,7 @@ plot.cophylo2 <-
     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,
-              show.tip.label = show.tip.label, font = font)
+              show.tip.label = show.tip.label, font = font, ...)
 {
     res <- list()