Data for Example 9.5

Thermal

## Format

A data frame/tibble with 12 observations on the two variables

temp

temperature (degrees Celcius)

loss

heat loss (BTUs)

## References

Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.

## Examples


model <- lm(loss ~ temp, data = Thermal)
summary(model)
#>
#> Call:
#> lm(formula = loss ~ temp, data = Thermal)
#>
#> Residuals:
#>    Min     1Q Median     3Q    Max
#>  -5.40  -2.20   0.10   2.35   6.20
#>
#> Coefficients:
#>             Estimate Std. Error t value Pr(>|t|)
#> (Intercept) 40.60000    1.19331   34.02 1.14e-11 ***
#> temp        -1.52000    0.09743  -15.60 2.40e-08 ***
#> ---
#> Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#>
#> Residual standard error: 3.774 on 10 degrees of freedom
#> Multiple R-squared:  0.9605,	Adjusted R-squared:  0.9566
#> F-statistic: 243.4 on 1 and 10 DF,  p-value: 2.397e-08
#>
plot(loss ~ temp, data = Thermal)
abline(model, col = "red")

rm(model)