stabler and faster C code for ME and BIONJ

[ape.git] / R / varcomp.R

diff --git a/R/varcomp.R b/R/varcomp.R
index 81a709ad9f322c00ff7d9798eb0f9462f0d01e8d..1cdcb5dd288c8b75ac01770dc2f1f0249933a51c 100644 (file)
--- a/R/varcomp.R
+++ b/R/varcomp.R
@@ -26,7 +26,7 @@ varcomp <- function(x, scale = FALSE, cum = FALSE)
 
 plot.varcomp <- function(x, xlab = "Levels", ylab = "Variance", type = "b", ...) {
   if (!("varcomp" %in% class(x))) stop("Object \"x\" is not of class \"varcomp\"")
-  return(xyplot(x ~ ordered(names(x), levels=rev(names(x))), xlab=xlab, ylab=ylab, type=type, ...))
+  return(lattice::xyplot(x ~ ordered(names(x), levels=rev(names(x))), xlab=xlab, ylab=ylab, type=type, ...))
 }
 
 # For debuging: