inst/examples/ex-balanced_bootstrap.R

# example from modelr::bootstrap
library("purrr")
library("dplyr")
boot <- balanced_bootstrap(mtcars, 100)

models <- map(boot$sample, ~ lm(mpg ~ wt, data = .))
tidied <- map_df(models, broom::tidy, .id = "id")

hist(subset(tidied, term == "wt")$estimate)
hist(subset(tidied, term == "(Intercept)")$estimate)
jrnold/resamplr documentation built on May 20, 2019, 1:05 a.m.