.
dataframe combined_boot_data <- boot_data$resample %>% bind_rows(.id = "id") # Bind the resamples together and include the ID column # Define a function to fit linear models fit_lm <- function(data) { lm(composite_mpg ~ hp, data = data) } # Apply the function to each group and store the models in a