What am i supposed to do to not make this question not violate the honor code? This is ridiculous.

For this problem we will use the "Ornstein" data from the library "car". First you will need to load the car library and if you want more information about the data set you can use the help() function. The interlocks variable can be viewed as a measure of how connected a firm is with other firms and will be used as the response.

library(car)

help(car)

a) Below is the code for fitting the linear model and getting the bootstrap standard errors for the coefficients. You can use the summary() to get the typical standard error estimates. Running the bootstrap code could take a couple of minutes. The bootsrap lm() function returns the bootstrap standard errors for the coefficients. Why are the bootstrap standard errors for the coefficient of assets larger than the default standard errors from the summary() function?

set.seed(1)

source("https://sites.google.com/site/bsherwood/bootstrap_code.r")

m1 <- lm(interlocks ~ assets, Ornstein)

bootstrap_lm(m1)

b) Using the bootstrap standard errors perform the hypothesis test for whether the coefficient for assets is zero or not. You will need to state the null and alternative hypotheses for full credit.

c) If you re-run the bootstrap code you will get different standard error estimates, why?

bootstrap_lm(m1)

PLEASE SOLVE.