---
title: "Palmer penguins"
author: "Kirill Müller"
date: "11/12/2020"
output: html_document
---

```{r setup, include=FALSE}
penguins <- readr::read_csv(here::here("data/penguins.csv"))
```

## Linear model

```{r}
lm(flipper_length_mm ~ body_mass_g + species, penguins)
```

