Revision 2ad963b97009de7f1bf46c5da8604388c2c67d05 authored by Matthias Templ on 27 February 2013, 09:44:32 UTC, committed by cran-robot on 27 February 2013, 09:44:32 UTC
1 parent 823295f
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