R/summary.PersonMisfit.R

Defines functions summary.MisfittingPersons

# ==========================================================================
# use summary function to return percentage of misfitting person of object x
# ==========================================================================

summary.MisfittingPersons <- function(object, ...)
  # summary method for object of class "MisfittingPersons" 
  # x = object of class "MisfittingPersons"
{
  cat("\n")
  cat(" Percentage of Misfitting Persons:", "\n", round(object$PersonMisfit,4), "%", "\n")
  cat(" (i.e.,", object$count.misfit.Z, "out of",  object$total.persons, "persons have Chi-square based Z-values > 1.96)")
  cat("\n")
}

Try the eRm package in your browser

Any scripts or data that you put into this service are public.

eRm documentation built on May 29, 2024, 2:12 a.m.