R CODE PLEASE

A common statistical requirement is to create bootstrap confidence intervals for a model statistic. This is done by repeatedly re-sampling with replacement from our original sample data, running the analysis for each re-sample, and then saving the statistic of interest. Below is a function boot. Im that bootstraps the linear model using case resampling. This code does not correctly calculate a bootstrap sample for the model coefficients: Figure out where the mistake is. Hint: Even if you haven't studied the bootstrap, my description above gives enough information about the bootstrap aigorithm to figure this out