-## plot.phylo.R (2008-03-28)
+## plot.phylo.R (2008-05-08)
## Plot Phylogenies
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))