# Data and model (duplicated so the code is visible on this slide)
temperature <- c(60, 65, 70, 75, 80, 85, 90, 95)
sales <- c(120,150,180,200,220,250,270,300)
df <- tibble(temperature, sales)
model <- lm(sales ~ temperature, data = df)
# Show model summary (output appears below the code)
summary(model)
Call:
lm(formula = sales ~ temperature, data = df)
Residuals:
Min 1Q Median 3Q Max
-4.167 -3.512 1.071 1.488 6.071
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -174.4048 9.2013 -18.95 1.39e-06 ***
temperature 4.9762 0.1174 42.37 1.16e-08 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 3.806 on 6 degrees of freedom
Multiple R-squared: 0.9967, Adjusted R-squared: 0.9961
F-statistic: 1795 on 1 and 6 DF, p-value: 1.157e-08