Revision e168b07923b144993e99ea7b65180aed9fe3efa8 authored by Matthias Templ on 11 December 2009, 00:00:00 UTC, committed by Gabor Csardi on 11 December 2009, 00:00:00 UTC
1 parent 2d2a8cf
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")
}
Computing file changes ...