R/qvcalc.itempar.R

In DavidFirth/qvcalc: Quasi Variances for Factor Effects in Statistical Models

#' @export
#' @rdname qvcalc
qvcalc.itempar <- function(object, ...){
  alias = attr(object, "alias")
  if (!isTRUE(alias)) stop(
                  "the itempar object was not built with 'alias = TRUE'")
  vc <- vcov(object)
  if (any(is.na(vc))) stop("the itempar object was not built with 'vcov = TRUE'")
  qvcalc.default(vc, estimates = object)
}