```{r, setup, include=FALSE}
require(mosaic)
```

## Agresti exercise 11.11

Import data (also available for download at the website):
```{r}
crime <- read.delim("https://asta.math.aau.dk/datasets?file=crime2005.txt")
```
(Note that we don't get the same results as in the book, but this should be the correct data set)

Start by making relevant plot(s).
```{r}
## Write plot command(s) here. 
```

Then fit the linear model in R:
```{r}
## Write a command like: lm( ??? ~ ???, data = ??? )
```

Now answer questions (a) - (e)


## Agresti exercise 11.21

Fit the linear model in R:
```{r}
## Write a command like: lm( ??? ~ ???, data = ??? )
```