Heat loss of thermal pane windows versus outside temperature

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)