Based on this data:

> X - c(5, 8, 11, 7, 13, 12,6) > Y - c(63, 67 , 74, 64, 75, 69, 60) > reg = lm(X-Y) > summary(reg) Call: Lm(formula = X ~ Y) Residuals : 1 2 W 4 5 6 -1.6295 -0.6416 -1.1627 -0.1325 0.3343 2.3524 0.8795 Coefficients: Estimate Std. Error t value Pr(>Itl) (Intercept) -25.060 7.235 -3.464 0.01797 Y 0.503 0. 107 4.702 0.00533 * * Signif. codes: 0 '***' 0.001 **' 0.01 "*' 0.05 '. ' 0.1 ' ' 1 Residual standard error: 1.473 on 5 degrees of freedom Multiple R-squared: 0.8156, Adjusted R-squared: 0.7787 F-statistic: 22.11 on 1 and 5 DF, p-value: 0.005327c). (6) calculate the Bonferroni and Working hoteling joint confidence intervals for the parameters using an a = 0.10. Interpret and compare the two confidence intervals. d) (6) Compute the standard error of the mean response, then compute and interpret the 90% confidence interval for the individual (not simultaneous) confidence interval for the mean response for age 6, 8 and 10. e). (8) Calculate the Bonferroni and Working hoteling family confidence interval to predict the average blood pressure for age 6, 8 and 10, simultaneously. Use an a = 0.15. f). (8) Now that you have computed question b)-e) by hand, use R to confirm your computation.\f