various bug fixes

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

diff --git a/R/plot.phylo.R b/R/plot.phylo.R
index 7d3ad8d4444d6e14b26142676089af6873388a6e..ca3ff1ce570960fa9c86b35f0cdc93a146312da2 100644 (file)
--- a/R/plot.phylo.R
+++ b/R/plot.phylo.R
@@ -1,4 +1,4 @@
-## plot.phylo.R (2008-03-28)
+## plot.phylo.R (2008-05-08)
 
 ##   Plot Phylogenies
 
@@ -246,7 +246,7 @@ plot.phylo <- function(x, type = "phylogram", use.edge.length = TRUE,
         if (direction == "downwards") y.lim[2] <- y.lim[2] + x$root.edge
     }
     ## fix by Klaus Schliep (2008-03-28):
-    asp <- if (type %in% c("fan", "radial")) NA else 1
+    asp <- if (type %in% c("fan", "radial")) 1 else NA
     plot(0, type = "n", xlim = x.lim, ylim = y.lim, xlab = "",
          ylab = "", xaxt = "n", yaxt = "n", bty = "n", asp = asp, ...)
     if (is.null(adj))