Find the regression equation using Pr as the independent variable, and Rct as the dependent variable. Test the hypothesis that the true slope is not equal to zero at = 0.15. Show hypotheses, conclusion and interpretation.

> fit <-lm(Rct ~ Pr) > summary(fit)

Call: lm(formula = Rct ~ Pr)

Residuals: Min 1Q Median 3Q Max -110.109 -25.180 -2.377 22.707 126.605

Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) 147.2476 18.7378 7.858 5.11e-13 *** Pr 0.4108 0.2340 1.755 0.0811 . --- Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 40.3 on 162 degrees of freedom Multiple R-squared: 0.01866, Adjusted R-squared: 0.01261 F-statistic: 3.081 on 1 and 162 DF, p-value: 0.0811

147.2476 + 0.4108x

Ho: 1 = 0 Ho: 1 0