R/vcov.BTglmmPQL.R

#' @export
vcov.BTglmmPQL <- function (object, ...)
{
    so <- summary(object, corr = FALSE, ...)
    so$dispersion * so$cov.unscaled
}
hturner/BradleyTerry2 documentation built on June 10, 2025, 11:05 a.m.