R/print.RespFit.r

In diffIRT: Diffusion IRT Models for Response and Response Time Data

print.RespFit=function(x, ...){
  x->object
  cat("\n")
  cat(if(toupper(object$model)==2) "Q-diffusion" else "D-diffusion","Model Fit of Responses\n")
  cat("---------------------------------\n")
  cat("Maydeu-Olivares & Joe Test of Order 2\n\n")
   cat("Overall Test Statistic\n")
  cat("Mr =",round(object$Mr,3),"  df=",object$df,"  p = ",round(pchisq(object$Mr,object$df,lower.tail=F),3),"\n")
}