diff --git a/R/approach_empirical.R b/R/approach_empirical.R index c5009aaa..4247fb7b 100644 --- a/R/approach_empirical.R +++ b/R/approach_empirical.R @@ -53,7 +53,6 @@ setup_approach.empirical <- function(internal, empirical.cov_mat = NULL, model = NULL, predict_model = NULL, ...) { - defaults <- mget(c( "empirical.eta", "empirical.type", "empirical.fixed_sigma", "empirical.n_samples_aicc", "empirical.eval_max_aicc", "empirical.start_aicc" diff --git a/R/setup.R b/R/setup.R index 04303977..51118596 100644 --- a/R/setup.R +++ b/R/setup.R @@ -1112,7 +1112,7 @@ check_extra_computation_args <- function(extra_computation_args) { # kernelSHAP_reweighting if (!(length(kernelSHAP_reweighting) == 1 && kernelSHAP_reweighting %in% - c("none", "on_N", "on_all", "on_all_cond"))) { + c("none", "on_N", "on_all", "on_all_cond"))) { stop("`kernelSHAP_reweighting` must be one of `none`, `on_N`, `on_all`, `on_all_cond`.\n") } diff --git a/tests/testthat/test-iterative-output.R b/tests/testthat/test-iterative-output.R index 21a98b38..ff078485 100644 --- a/tests/testthat/test-iterative-output.R +++ b/tests/testthat/test-iterative-output.R @@ -118,7 +118,7 @@ test_that("output_lm_numeric_independence_converges_tol_paired", { ), iterative = TRUE, verbose = c("convergence", "shapley") - ), + ), "output_lm_numeric_independence_converges_tol_paired" ) })