# problem-10.9

problem-10.9 For illustration, we type the data into a text file with two columns, the first being the elevation. Then we use read.table() to read it in.

    > x = read.table(file="tmp.txt")
    > names(x) = c("elev","Temp")
    > res = lm(Temp ~ elev, x)
    > summary(res)
    ...
    Coefficients:
                 Estimate Std. Error t value Pr(>|t|)
    (Intercept) 59.290662   1.717329   34.52  3.9e-08 ***
    elev        -0.005115   0.000921   -5.55   0.0014 **
    ---
    ...
    > T = (-0.005115 - (-.00534)) / .000921
    > T
    [1] 0.2443
    > 2*pt(T,df=6,lower.tail=FALSE) # two-sided
    [1] 0.8151

The p-value is not statistically significant.