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

## Agresti exercise 11.11

Import data (also available for download at the website):
```{r}
crime <- read.table("https://asta.math.aau.dk/datasets?file=Crime2.dat", header = TRUE)
crime <- crime[crime$State != "DC", ]
```

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)

For question (d) you can get the correlation matrix from:
```{r}
cor(crime[,c(2,4,6)])
```


## Agresti exercise 11.21

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