From 155fff6a09764f94afa51a08112f66f327d8232e Mon Sep 17 00:00:00 2001 From: Joseph Larmarange Date: Fri, 27 Dec 2024 16:44:45 +0100 Subject: [PATCH] use model frame for computing terms contribution --- R/model_compute_terms_contributions.R | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/R/model_compute_terms_contributions.R b/R/model_compute_terms_contributions.R index b9f7cd84..034c2754 100644 --- a/R/model_compute_terms_contributions.R +++ b/R/model_compute_terms_contributions.R @@ -84,8 +84,7 @@ model_compute_terms_contributions.default <- function(model) { } # stop # continuous variables converted to 1 to force positive values - d <- model |> purrr::pluck("data") - if (is.null(d)) d <- model |> model_get_model_frame() + d <- model |> model_get_model_frame() if (is.null(d)) { return(NULL)