R/summary.mml.R

In wasabi1989/MiscPsycho: Miscellaneous Psychometric Analyses

summary.mml <- 
function(object, ...){
	tab <- data.frame(Estimate = coef(object),
			StdError = object$Std.Error)	
	row.names(tab) <- c('mu', 'sigma')
	res <- list(call = object$call, coefficients = tab)
	class(res) <- "summary.mml"
	res
}