R/print.CRSM.R

Defines functions print.CRSM

Documented in print.CRSM print.CRSM

#' @rdname crsm
#'
#' @export
#'
#' @method print CRSM
#'
#' @param x object of class \code{CRSM}

print.CRSM <-
function(x, ...){

  cat("\n Call: ", deparse(x$call), "\n\n")

    parall <- rbind(cbind("item estimates"=x$itempar, "SE"=x$se.item.mean), "dispp"=c(x$disppar, x$se.distr.mean))
      parall <- rbind(cbind("item estimates"=x$itempar, "SE"=x$itempar_se),"dispp"=c(x$disppar, x$disppar_se) )

  cat("Parameter estimates: \n")
  print(parall)

}

Try the pcIRT package in your browser

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

pcIRT documentation built on April 30, 2018, 5:03 p.m.