# Exercises

```{r }
library(tidyverse)
theme_set(theme_bw())
```

From COWIDUR notes (Figure 1.1):

```{r}
age <- c(23, 28, 38, 44, 50, 53, 57, 59, 60)
fatpct <- c(19.2, 16.6, 32.5, 29.1, 32.8, 42, 32, 34.6, 40.5)
```

Make a linear regression for all observations and one for people older than 30 years. Then, construct a figure with the raw observations and the two regression lines on top.

