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

Import data (also available for download at the website):
```{r}
UN <- read.delim("https://asta.math.aau.dk/datasets?file=Longley.txt")
```

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

```

Make pairwise scatter plots:
```{r}
## Write plot command(s) here.
```