3. Chapter 3 (Exercies 14) This problem focuses on the collinearity problem. (a) Perform the following commands in R: > get . seed (1) > x1=runif (100) > x2=0. 5*x1+rnorm (100) /10 > y=2+2*x1+0 .3. x2+rnorm (100) The last line corresponds to creating a linear model in which y is a function of x1 and x2. Write out the form of the linear model. What are the regression coefficients? (b) What is the correlation between x1 and x2? Create a scatterplot displaying the relationship between the variables. (c) Using this data, fit a least squares regression to predict y using x1 and x2. Describe the results obtained. What are Bo, B1, and 32? How do these relate to the true Bo, B1, and 82? Can you reject the null hypothesis Ho : 31 = 0? How about the mull hypothesis Ho : 32 = 0? (d) Now fit a least squares regression to predict y using only x1. Comment on your results. Can you reject the null hypothesis Ho : 81 = 0? (e) Now fit a least squares regression to predict y using only x2. Comment on your results. Can you reject the null hypothesis Ho : 81 = 0? ([) Do the results obtained in (c)-(e) contradict each other? Explain your answer. (g) Now suppose we obtain one additional observation, which was unfortunately mismeasured. > x1=c(x1 , 0.1) > x2=c(x2, 0.8) > y=c (y , 6) Ro-fit the linear models from (c) to (c) using this new data. What effect does this new observation have on the each of the models? In each model, is this observation an outlier? A high-leverage point? Both? Explain your answers