R/summary.analytics.R

In RTextTools: Automatic Text Classification via Supervised Learning

Defines functions summary.analytics

Documented in summary.analytics

summary.analytics <- function(object, ...) {	
	algorithms <- object@algorithm_summary
	average <- colSums(algorithms, na.rm=T)/nrow(algorithms)
	
	cat("ENSEMBLE SUMMARY\n\n")
	print(object@ensemble_summary)
	cat("\n\n")
	cat("ALGORITHM PERFORMANCE\n\n")
	print(average)
}

Try the RTextTools package in your browser