## Establishing a connection

We use the packages `DBI` and `RMariaDB` to connect to the *employees* database:

```{r} con <- DBI::dbConnect(RMariaDB::MariaDB(), host = "localhost",dbname="employees", user = "compstats", password = "ulpine5nematode" ) ```

Find the highest paid male and female employees in each department. First, using SQL:

```{sql, connection=con,echo=TRUE}

-- YOUR SQL CODE HERE

```

Answer now the same question, but using `dbplyr`

```{r}

# YOUR R dbplyr CODE HERE

```