use new narm argument

easystats · Sep 9, 2024 · 29baa97 · 29baa97
1 parent 5f32a38
commit 29baa97
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -221,3 +221,4 @@ Config/testthat/edition: 3
 Config/testthat/parallel: true
 Config/Needs/website: easystats/easystatstemplate
 Config/rcmdcheck/ignore-inconsequential-notes: true
+Remotes: easystats/insight
diff --git a/R/standardize_info.R b/R/standardize_info.R
@@ -53,7 +53,7 @@ standardize_info.default <- function(model,
   # model_matrix <- as.data.frame(stats::model.matrix(model))
   model_matrix <- as.data.frame(insight::get_modelmatrix(model))
   model_data <- insight::get_data(model, source = "mf", verbose = FALSE)
-  wgts <- insight::get_weights(model, na_rm = TRUE)
+  wgts <- insight::get_weights(model, remove_na = TRUE)
 
   # validation check for ZI
   if (mi$is_zero_inflated && verbose) {
@@ -428,7 +428,7 @@ standardize_info.default <- function(model,
 
   within_vars <- unclass(performance::check_heterogeneity_bias(model))
   id <- insight::get_random(model)[[1]]
-  w <- insight::get_weights(model, na_rm = TRUE)
+  w <- insight::get_weights(model, remove_na = TRUE)
 
   ## Find which parameters vary on level 1 ("within")
   is_within <- logical(length = length(params))

diff --git a/R/utils_model_parameters.R b/R/utils_model_parameters.R
@@ -98,7 +98,7 @@
 
   # weighted nobs
   weighted_nobs <- .safe({
-    w <- insight::get_weights(model, na_rm = TRUE, null_as_ones = TRUE)
+    w <- insight::get_weights(model, remove_na = TRUE, null_as_ones = TRUE)
     round(sum(w))
   })
   attr(params, "weighted_nobs") <- weighted_nobs