https://github.com/cran/robCompositions
Raw File
Tip revision: 54cbcf1d6d3ecbca1153e8f00a804e837237f09d authored by Matthias Templ on 07 February 2014, 00:00:00 UTC
version 1.7.0
Tip revision: 54cbcf1
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, ...)
}
back to top