Read the data "galton" from the R package "UsingR" into an R workbook. Fit a line of best fit to this data set, and compute a table of pointwise residuals, the coefficient of determination (r squared), the sum of square errors, and an unbiased estimator of the population variance. Use at-test to test the hypothesis that the slope estimate is 1. Use the model to estimate the child's height if a parent is 7 feet tall. How credible of a model did you produce with this method?