https://github.com/cran/robCompositions
Tip revision: 4f2efb4ed8831a90968ef063d2403d675c84dae3 authored by Matthias Templ on 26 November 2013, 12:55:44 UTC
version 1.6.4
version 1.6.4
Tip revision: 4f2efb4
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)
biplot(x$princompOutputClr, xlab=beschx, ylab=beschy, ...)
}