fix

Author: strengejacke

R/equivalence_test.R

@@ -750,6 +750,11 @@ equivalence_test.parameters_model <- function(x,
       # se
       se <- standard_error(model, vcov = vcov, vcov_args = vcov_args, ...)
 
+      # remove dispersion components
+      if (!is.null(se$Component)) {
+        se <- se[se$Component != "dispersion", ]
+      }
+
       stats::pt((range[1] - params$mu) / se$SE, df = dof, lower.tail = TRUE) +
         stats::pt((range[2] - params$mu) / se$SE, df = dof, lower.tail = FALSE)
     },