
Fit a new model to data created using resample(model)
.
relm(model, ..., envir = environment(formula(model)))
a linear model object produced using lm()
.
additional arguments passed through to resample()
.
an environment in which to (re)evaluate the linear model.
resample()
# NOT RUN {
mod <- lm(length ~ width, data = KidsFeet)
do(1) * mod
do(3) * relm(mod)
# use residual resampling to estimate standard error (very crude because so few replications)
Boot <- do(100) * relm(mod)
sd(~ width, data = Boot)
# standard error as produced by summary() for comparison
mod %>% summary() %>% coef()
# }
Run the code above in your browser using DataLab