R/print.alpha.R

Defines functions print.alpha

print.alpha <- function(x, digits = 2, ...){
	cat("\n Call:\n", deparse(x$call), "\n\n", sep = "")
	cat("Cronbach's Coefficient Alpha:", coef(x), "\n")	
	invisible(x)
   }
wasabi1989/MiscPsycho documentation built on Jan. 19, 2020, 12:29 a.m.