This is the title slide

Here is a subtitle

Anne Author

This is the slide title

This is some regular text and this is inline code.

• This is an unordered
  • list of items

Here is a link, some italic text, and some bold text.

And a block quote!

Code and output

model <- lm(
  mpg ~ hp + wt + gear,
  data = mtcars
)
# Return a summary of the model
summary(model)

Call:
lm(formula = mpg ~ hp + wt + gear, data = mtcars)

Residuals:
    Min      1Q  Median      3Q     Max 
-3.3712 -1.9017 -0.3444  0.9883  6.0655 

Coefficients:
             Estimate Std. Error t value Pr(>|t|)    
(Intercept) 32.013657   4.632264   6.911 1.64e-07 ***
hp          -0.036786   0.009891  -3.719 0.000888 ***
wt          -3.197811   0.846546  -3.777 0.000761 ***
gear         1.019981   0.851408   1.198 0.240963    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 2.574 on 28 degrees of freedom
Multiple R-squared:  0.8352,    Adjusted R-squared:  0.8176 
F-statistic: 47.31 on 3 and 28 DF,  p-value: 4.334e-11