Add validation to ensure es_type parameter is only used with effectsize = "boot"

R/estimate_contrasts.R

@@ -317,6 +317,17 @@ estimate_contrasts.default <- function(
   # validate input
   estimate <- .validate_estimate_arg(estimate)
   comparison <- .check_for_inequality_comparison(comparison)
+  # Validate es_type usage
+  call_args <- match.call()
+  if ("es_type" %in% names(call_args)) {
+    if (is.null(effectsize)) {
+      insight::format_error(
+        "`es_type` can only be used when `effectsize` is specified. Currently `effectsize = NULL`."
+      )
+    } else if (effectsize != "boot") {
+      insight::format_error("`es_type` can only be used when `effectsize = \"boot\"`.")
+    }
+  }
 
   if (backend == "emmeans") {
     # Emmeans ----------------------------------------------------------------

R/estimate_means.R

@@ -306,7 +306,7 @@
 #'
 #' The output from `equivalence_test()` returns a column `SGPV`, the "second
 #' generation p-value", which is equivalent to the `p (Equivalence)` column when
-#' using the `equivalence` argument. It is basically representiv the ROPE coverage
+#' using the `equivalence` argument. It is basically representative of the ROPE coverage
 #' from the confidence interval of the estimate (i.e. the proportion of the
 #' confidence intervals that lies within the region of practical equivalence).
 #'
@@ -414,16 +414,18 @@
 #' estimate_means(model, by = "Sepal.Width", length = 3)
 #' }
 #' @export
-estimate_means <- function(model,
-                           by = "auto",
-                           predict = NULL,
-                           ci = 0.95,
-                           estimate = NULL,
-                           transform = NULL,
-                           keep_iterations = FALSE,
-                           backend = NULL,
-                           verbose = TRUE,
-                           ...) {
+estimate_means <- function(
+  model,
+  by = "auto",
+  predict = NULL,
+  ci = 0.95,
+  estimate = NULL,
+  transform = NULL,
+  keep_iterations = FALSE,
+  backend = NULL,
+  verbose = TRUE,
+  ...
+) {
   # Process argument ---------------------------------------------------------
   # --------------------------------------------------------------------------
 
@@ -469,12 +471,16 @@ estimate_means <- function(model,
   info <- attributes(estimated)
 
   # Table formatting
-  attr(means, "table_title") <- c(switch(estimate,
-    specific = "Model-based Predictions",
-    typical = "Estimated Marginal Means",
-    average = "Average Predictions",
-    population = "Average Counterfactual Predictions"
-  ), "blue")
+  attr(means, "table_title") <- c(
+    switch(
+      estimate,
+      specific = "Model-based Predictions",
+      typical = "Estimated Marginal Means",
+      average = "Average Predictions",
+      population = "Average Counterfactual Predictions"
+    ),
+    "blue"
+  )
 
   attr(means, "table_footer") <- .table_footer(
     means,

inst/WORDLIST

@@ -1,45 +1,39 @@
-’s
 ANCOVAs
-Arel
-ATE
 ATEs
 ATT
 ATU
+Analysing
+Arel
 Axelsson
-BH
 BLUPs
 Bundock
-cdot
-Chatton
 CJ
-coefficients’
-diag
-Dickerman
-Dom
+Chatton
 DS
+Dickerman
 EFC
 EMM
 EMMs
 EUROFAMCARE
 Fitzsimons
 GAMM
+GLM's
 GLMM
 GLMMs
-GLM's
 GMM
 GMMs
 Greifer
 Heiss
-Hernan
 Hernán
 ICC's
 ICCs
 IPW
 Intersectional
 Intersectionality
+JOSS
+LM
 Leckie
 Lenth
-LM
 MAIHDA
 Mattan
 McCabe
@@ -49,154 +43,113 @@ Merlo
 Mize
 Mmmh
 Modelisation
-Modelling
-Møller
 Montiel
 Mulinari
+Møller
 Neyman
-Olea
+Nonresponse
 ORCID
+Olea
 Owww
-PCVs
 PCV
+PCVs
 Plagborg
-QoL
 Psychometrika
+QoL
 RCTs
 README
-Rohrer
 RStudio
 RTs
 Ratcliff
-Reproducibility
-Rescaling
+Rohrer
+SSM
+SV
+SVARs
 Setosa
 Shachar
 Spiller
-SSM
 Subramanian
-SV
-SVARs
 Versicolor
 Virginica
-Visualisation
 Visualising
 Wagenmakers
 Weisberg
 Wemrell
 Wiernik
 al
 analysing
-bc
 behaviour
-blogpost
-bocode
-bonferroni
 bootES
 brglm
 brms
-caregiving
+cdot
 ception
 codecov
-computable
+coefficients’
 conditionspeed
-counterfactuals
 confounder
-confounders
 coxme
 d'être
-d’être
 dat
 datagrid
 datawizard
+diag
 doi
 dpar
+d’être
 easystats
-edu
-effectsize
 emmeans
-emtrends
 et
 exchangeability
 favour
-fdr
-fmwww
 foR
 generalizability
 geoms
 ggplot
 github
 glmmTMB
 glms
-grano
 grey
-hochberg
-holm
-hommel
-http
 https
-individuals'
-interpretable
+individuals’
 intersectional
 intersectionality
 intra
-io
 jmr
 joss
 labelled
-lifecycle
 lme
-lme4
 loess
 marginaleffects
-marginalizations
 mattansb
 modelisation
 modelled
 modelling
-natively
 nd
 nnet
 ol
 onwards
 partialled
-patilindrajeets
-pscl
 pre
-quartiles
+pscl
 rOpenSci
-Remotes
 raison
-recoding
-recodings
-repec
-reproducibility
-rescaled
-rescales
-residualize
 residualized
+residualizes
 rootSolve
 rstanarm
-salis
 spinoff
 ssmph
-strengejacke
-summarised
 summarises
-terciles
-transint
-tukey
-ultron
-uninformativeness
+tinyplot
 unidimensional
+uninformativeness
 unstandardizing
 usecases
 versicolor
 virginica
 visualisation
 visualise
-visualising
 walkthrough
-Nonresponse
-tinyplot
 ’
+’s