R/print.DRM.R

Defines functions print.DRM

Documented in print.DRM

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

print.DRM <-
  function(x, ...){
    
    parall <- rbind(cbind("item estimates"=x$itempar, "SE"=x$itempar_se, "SE low"= x$itempar_se_low, "SE up"=x$itempar_se_up),"distrpar"=c(x$distrpar, x$distrpar_se, x$distrpar_se_low, x$distrpar_se_up) )
    
    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.