The director of admissions of a small college selected 120 students at random from the new freshman class in a study to determine whether a student’s grade point average (gpa) at the end of the freshman year (y) can be predicted from the act test score (x).

3.897 21
3.885 14
3.778 28
2.540 22
3.028 21
3.865 31
2.962 32
3.961 27
0.500 29
3.178 26
3.310 24
3.538 30
3.083 24
3.013 24
3.245 33
2.963 27
3.522 25
3.013 31
2.947 25
2.118 20
2.563 24
3.357 21
3.731 28
3.925 27
3.556 28
3.101 26
2.420 28
2.579 22
3.871 26
3.060 21
3.927 25
2.375 16
2.929 28
3.375 26
2.857 22
3.072 24
3.381 21
3.290 30
3.549 27
3.646 26
2.978 26
2.654 30
2.540 24
2.250 26
2.069 29
2.617 24
2.183 31
2.000 15
2.952 19
3.806 18
2.871 27
3.352 16
3.305 27
2.952 26
3.547 24
3.691 30
3.160 21
2.194 20
3.323 30
3.936 29
2.922 25
2.716 23
3.370 25
3.606 23
2.642 30
2.452 21
2.655 24
3.714 32
1.806 18
3.516 23
3.039 20
2.966 23
2.482 18
2.700 18
3.920 29
2.834 20
3.222 23
3.084 26
4.000 28
3.511 34
3.323 20
3.072 20
2.079 26
3.875 32
3.208 25
2.920 27
3.345 27
3.956 29
3.808 19
2.506 21
3.886 24
2.183 27
3.429 25
3.024 18
3.750 29
3.833 24
3.113 27
2.875 21
2.747 19
2.311 18
1.841 25
1.583 18
2.879 20
3.591 32
2.914 24
3.716 35
2.800 25
3.621 28
3.792 28
2.867 25
3.419 22
3.600 30
2.394 20
2.286 20
1.486 31
3.885 20
3.800 29
3.914 28
1.860 16
2.948 28

1.obtain the least squares estimates of β0 and β1 , and state the estimated regression function. you may use the r commands:

> gpa. model< -lm(gpa~act, data=gpa)

> summary(gpa. model)

estimate for β0= (round answer to 5 decimal places. if the answer is 0.12345, do enter the zero before the decimal point)

estimate for β1= answer to 5 decimal places. if the answer is 0.12345, do enter the zero before the decimal point)

2.

b. plot the estimated regression function and the data. does the estimated regression function appear to fit the data well?

> plot(gpa~act, data=gpa)

> abline(gpa. model)

yes

no

3. obtain a point estimate of the mean freshman gpa for students with act test score x=30. round answer to 5 decimal places.

4.obtain the residuals ei.

> gpa. model$residuals

enter here the residual corresponding to the 15th observation= (round answer to 5 decimal places. )

do they sum to zero? use the function see if you get something close to zero.

/no)

5.estimate for σ2 = round answers to 5 decimal places. enter 0 before decimal point.

estimate for σ = round answers to 4 decimal places. enter 0 before decimal point.

obtain a 99 percent confidence interval for β1. you can use the following command. you need to write the level as a number, not a percent.

> confint(gpa. model, level= )

lower bound = upper bound = round answers to 5 decimal places. write the 0 before the decimal point.

does it include zero? /no)

7.

we would like to test whether or not a linear association exists between student’s act score (x) and gpa at the end of the freshman year (y). state the hypothesis of the test:

8.

test, using a t-test, whether or not a linear association exists between student’s act score (x) and gpa at the end of the freshman year (y). using a level of significance of .01, compute the following.

the test statistic is: t = round answer to 2 decimals.

the p-value is = round answer to 5 decimals.

9.after testing whether or not a linear association exists between student’s act score (x) and gpa at the end of the freshman year (y), write down the conclusion of the test.