problem-10.6

problem-10.6  The p-value is found by computing the t-statistic using \betahat1, and \SE(\betahat1) is found from the summary() function.
> price = c(300, 250, 400, 550, 317, 389, 425, 289, 389, 559)
> no.bed = c(3, 3, 4, 5, 4, 3, 6, 3, 4, 5)
> res = lm(price ~ no.bed)
> summary(res)
...
Coefficients:
            Estimate Std. Error t value Pr(>|t|)
(Intercept)     94.4       98.0    0.96    0.364
no.bed          73.1       23.8    3.08    0.015 *
...
> T = (73.1 - 60)/23.8
> pt(T, df = 8, lower.tail=FALSE)
[1] 0.2985

The large p-value is not significant.