R/print.summary.jml.R

In wasabi1989/MiscPsycho: Miscellaneous Psychometric Analyses

print.summary.jml <-
function(x, ...){
   cat("Call:\n")
   print(x$call)
   cat("\n")
   cat("Number of iterations to completion:", x$iter, "\n")
   cat("Number of individuals used in estimation:", x$N, "\n")
   cat("\n")
   printCoefmat(x$coefficients)
   }