# 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.