X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fvarcomp.R;h=1cdcb5dd288c8b75ac01770dc2f1f0249933a51c;hb=d88302b4735b5b7c9132387090bb592d906fe1cb;hp=81a709ad9f322c00ff7d9798eb0f9462f0d01e8d;hpb=2e3b8be33765d5311e071efb39871249d16f7e30;p=ape.git

diff --git a/R/varcomp.R b/R/varcomp.R
index 81a709a..1cdcb5d 100644
--- 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: