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
Raw File
print.daFisher.R
print.daFisher <- function(x,...){
	cat("--------------------------------------")
	cat("\nResults from Fishers discriminant analysis, coda ==", x$coda)
	cat("\n- Variance between the classes: \n")
	print(x$B)
	cat("\n- Variance within the classes: \n")
	print(x$W)
	cat("\n- Loadings matrix: \n")
	print(x$load)
	cat("--------------------------------------\n")
}
back to top