Revision 128cc5eed366a5a3f6c33b70a81379c1b1ca8688 authored by Matthias Templ on 16 August 2010, 18:42:55 UTC, committed by cran-robot on 16 August 2010, 18:42:55 UTC
1 parent 4c9961a
plot.pcaCoDa.R
plot.pcaCoDa <- function(x, y, ...){
## biplot
#z <- list()
#z$scores <- x$scores
#z$loadings <- x$loadings
beschx <- if(x$method == "robust") "PC1 (clr-robust)" else "PC1 (clr-standard)"
beschy <- if(x$method == "robust") "PC2 (clr-robust)" else "PC2 (clr-standard)"
biplot(x$princompOutputClr, xlab=beschx, ylab=beschy)
}
Computing file changes ...