https://github.com/cran/robCompositions
Raw File
Tip revision: 2a6f9284202f9862cb54daa8db49984b29d252b8 authored by Matthias Templ on 18 January 2010, 16:01:45 UTC
version 1.3.3
Tip revision: 2a6f928
print.pcaCoDa.R
print.pcaCoDa <- function(x, ...){
	## percentage of explained variability for clr transformed data
	eV <- x$eigenvalues / sum(x$eigenvalues)
	eVcum <- cumsum(x$eigenvalues) / sum(x$eigenvalues)
	cat("\n-------------------")
	cat("\n Percentages of explained variability for compositional data after clr transformation \n")
	print(eVcum)
	cat("\n-------------------\n\n")	
}
back to top