library(tidymodels)
tidymodels_prefer()
theme_set(theme_bw())
options(pillar.advice = FALSE, pillar.min_title_chars = Inf)
set.seed(991)
delivery_split <- initial_validation_split(deliveries, prop = c(0.6, 0.2),
strata = time_to_delivery)
mars_final_spec <-
mars(num_terms = 40, prod_degree = 2, prune_method = "none") %>%
set_mode("regression")
mars_test_res <-
mars_final_spec %>%
last_fit(time_to_delivery ~ ., split = delivery_split)
#>
#> Attaching package: 'plotrix'
#> The following object is masked from 'package:scales':
#>
#> rescale
set.seed(168)
mars_test_boot <- int_pctl(mars_test_res, alpha = 0.10)
#> Warning: Using `by = character()` to perform a cross join was deprecated in dplyr 1.1.0.
#> ℹ Please use `cross_join()` instead.
#> ℹ The deprecated feature was likely used in the purrr package.
#> Please report the issue at <https://github.com/tidyverse/purrr/issues>.
#> This warning is displayed once per session.
#> Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
#> generated.
Created on 2026-04-17 with reprex v2.1.1
Created on 2026-04-17 with reprex v2.1.1