Heat loss through a new insulating medium
Data for Exercise 9.50
Insulate
A data frame/tibble with ten observations on two variables
outside temperature (in degrees Celcius)
heat loss (in BTUs)
Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.
plot(loss ~ temp, data = Insulate)
model <- lm(loss ~ temp, data = Insulate)
abline(model, col = "blue")
summary(model)
## Not run:
library(ggplot2)
ggplot2::ggplot(data = Insulate, aes(x = temp, y = loss)) +
geom_point() +
geom_smooth(method = "lm", se = FALSE) +
theme_bw()
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.