From 29baa97268fe5cce0b800917f71866dc0c2c6152 Mon Sep 17 00:00:00 2001 From: Daniel Date: Mon, 9 Sep 2024 16:30:31 +0200 Subject: [PATCH] use new narm argument --- DESCRIPTION | 1 + R/standardize_info.R | 4 ++-- R/utils_model_parameters.R | 2 +- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index d35254ca1..60309a335 100644 --- 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 index e7e7c4a24..dfb300b77 100644 --- 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 index 07037d0dc..5f22af548 100644 --- 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