if (FALSE) { # rlang::is_installed(c("probably"))
library(tibble)
# create example data
set.seed(1)
d <- tibble(y = rnorm(100), y_pred = y/2 + rnorm(100))
d
# specify calibration
tlr <-
tailor() |>
adjust_numeric_range(lower_limit = 1)
# train tailor by passing column names.
tlr_fit <- fit(tlr, d, outcome = y, estimate = y_pred)
predict(tlr_fit, d)
}
Run the code above in your browser using DataLab