R/coef.IRTest.R

In IRTest: Parameter Estimation of Item Response Theory with Estimation of Latent Distribution

#' Extract Model Coefficients
#'
#' @description
#' A generic function which extracts model coefficients from objects returned by modeling functions.
#'
#' @param object An object for which the extraction of model coefficients is meaningful.
#' @param complete A logical value indicating if the full coefficient vector should be returned.
#' @param ... Other arguments.
#'
#' @return Coefficients extracted from the model (\code{object}).
#' @export
#'
coef.IRTest <- function(object, complete = TRUE, ...){
  cf <- object$par_est
  if (complete)
    cf
  else cf[!is.na(cf)]
}

#' Extract Standard Errors of Model Coefficients
#'
#' @description
#' Standard errors of model coefficients calculated by using Fisher information functions.
#'
#' @param object An object for which the extraction of standard errors is meaningful.
#' @param complete A logical value indicating if the full standard-error vector should be returned.
#'
#' @return Standard errors extracted from the model (\code{object}).
#' @export
#'
coef_se <- function(object, complete = TRUE){
  cf <- object$se
  if (complete)
    cf
  else cf[!is.na(cf)]
}