penguinseval

count: false

.panel1-the_chunk-auto[

``` r
*palmerpenguins::penguins
```
]
 
.panel2-the_chunk-auto[

```
# A tibble: 344 × 8
   species island    bill_length_mm bill_depth_mm flipper_length_mm body_mass_g
   <fct>   <fct>              <dbl>         <dbl>             <int>       <int>
 1 Adelie  Torgersen           39.1          18.7               181        3750
 2 Adelie  Torgersen           39.5          17.4               186        3800
 3 Adelie  Torgersen           40.3          18                 195        3250
 4 Adelie  Torgersen           NA            NA                  NA          NA
 5 Adelie  Torgersen           36.7          19.3               193        3450
 6 Adelie  Torgersen           39.3          20.6               190        3650
 7 Adelie  Torgersen           38.9          17.8               181        3625
 8 Adelie  Torgersen           39.2          19.6               195        4675
 9 Adelie  Torgersen           34.1          18.1               193        3475
10 Adelie  Torgersen           42            20.2               190        4250
# ℹ 334 more rows
# ℹ 2 more variables: sex <fct>, year <int>
```
]

---
count: false

.panel1-the_chunk-auto[

``` r
palmerpenguins::penguins %>%
* ggplot()
```
]
 
.panel2-the_chunk-auto[
![](penguinseval_chunk_flipbook_files/figure-html/the_chunk_auto_02_output-1.png)
]

---
count: false

.panel1-the_chunk-auto[

``` r
palmerpenguins::penguins %>%
  ggplot() +
* aes(y = flipper_length_mm, x = bill_depth_mm)
```
]
 
.panel2-the_chunk-auto[
![](penguinseval_chunk_flipbook_files/figure-html/the_chunk_auto_03_output-1.png)
]

---
count: false

.panel1-the_chunk-auto[

``` r
palmerpenguins::penguins %>%
  ggplot() +
  aes(y = flipper_length_mm, x = bill_depth_mm) +
* geom_point()
```
]
 
.panel2-the_chunk-auto[
![](penguinseval_chunk_flipbook_files/figure-html/the_chunk_auto_04_output-1.png)
]

---
count: false

.panel1-the_chunk-auto[

``` r
palmerpenguins::penguins %>%
  ggplot() +
  aes(y = flipper_length_mm, x = bill_depth_mm) +
  geom_point() +
* geom_point(stat = StatLm, alpha = .45)
```
]
 
.panel2-the_chunk-auto[
![](penguinseval_chunk_flipbook_files/figure-html/the_chunk_auto_05_output-1.png)
]

---
count: false

.panel1-the_chunk-auto[

``` r
palmerpenguins::penguins %>%
  ggplot() +
  aes(y = flipper_length_mm, x = bill_depth_mm) +
  geom_point() +
  geom_point(stat = StatLm, alpha = .45) +
* geom_segment(stat = StatLm, alpha = .45)
```
]
 
.panel2-the_chunk-auto[
![](penguinseval_chunk_flipbook_files/figure-html/the_chunk_auto_06_output-1.png)
]

---
count: false

.panel1-the_chunk-auto[

``` r
palmerpenguins::penguins %>%
  ggplot() +
  aes(y = flipper_length_mm, x = bill_depth_mm) +
  geom_point() +
  geom_point(stat = StatLm, alpha = .45) +
  geom_segment(stat = StatLm, alpha = .45) +
* aes(color = species) + aes(species = species)
```
]
 
.panel2-the_chunk-auto[
![](penguinseval_chunk_flipbook_files/figure-html/the_chunk_auto_07_output-1.png)
]

---
count: false

.panel1-the_chunk-auto[

``` r
palmerpenguins::penguins %>%
  ggplot() +
  aes(y = flipper_length_mm, x = bill_depth_mm) +
  geom_point() +
  geom_point(stat = StatLm, alpha = .45) +
  geom_segment(stat = StatLm, alpha = .45) +
  aes(color = species) + aes(species = species) +
* aes(shape = sex)
```
]
 
.panel2-the_chunk-auto[
![](penguinseval_chunk_flipbook_files/figure-html/the_chunk_auto_08_output-1.png)
]

---
count: false

.panel1-the_chunk-auto[

``` r
palmerpenguins::penguins %>%
  ggplot() +
  aes(y = flipper_length_mm, x = bill_depth_mm) +
  geom_point() +
  geom_point(stat = StatLm, alpha = .45) +
  geom_segment(stat = StatLm, alpha = .45) +
  aes(color = species) + aes(species = species) +
  aes(shape = sex) +
* aes(body_mass_g = body_mass_g)
```
]
 
.panel2-the_chunk-auto[
![](penguinseval_chunk_flipbook_files/figure-html/the_chunk_auto_09_output-1.png)
]

---
count: false

.panel1-the_chunk-auto[

``` r
palmerpenguins::penguins %>%
  ggplot() +
  aes(y = flipper_length_mm, x = bill_depth_mm) +
  geom_point() +
  geom_point(stat = StatLm, alpha = .45) +
  geom_segment(stat = StatLm, alpha = .45) +
  aes(color = species) + aes(species = species) +
  aes(shape = sex) +
  aes(body_mass_g = body_mass_g) +
* aes(bill_length_mm = bill_length_mm)
```
]
 
.panel2-the_chunk-auto[
![](penguinseval_chunk_flipbook_files/figure-html/the_chunk_auto_10_output-1.png)
]

---
count: false

.panel1-the_chunk-auto[

``` r
palmerpenguins::penguins %>%
  ggplot() +
  aes(y = flipper_length_mm, x = bill_depth_mm) +
  geom_point() +
  geom_point(stat = StatLm, alpha = .45) +
  geom_segment(stat = StatLm, alpha = .45) +
  aes(color = species) + aes(species = species) +
  aes(shape = sex) +
  aes(body_mass_g = body_mass_g) +
  aes(bill_length_mm = bill_length_mm) +
* aes(island = island)
```
]
 
.panel2-the_chunk-auto[
![](penguinseval_chunk_flipbook_files/figure-html/the_chunk_auto_11_output-1.png)
]

---
count: false

.panel1-the_chunk-auto[

``` r
palmerpenguins::penguins %>%
  ggplot() +
  aes(y = flipper_length_mm, x = bill_depth_mm) +
  geom_point() +
  geom_point(stat = StatLm, alpha = .45) +
  geom_segment(stat = StatLm, alpha = .45) +
  aes(color = species) + aes(species = species) +
  aes(shape = sex) +
  aes(body_mass_g = body_mass_g) +
  aes(bill_length_mm = bill_length_mm) +
  aes(island = island)  +
* aes(year = year)
```
]
 
.panel2-the_chunk-auto[
![](penguinseval_chunk_flipbook_files/figure-html/the_chunk_auto_12_output-1.png)
]

@media print {
  .has-continuation {
    display: block;
  }
}

code.r.hljs.remark-code{
  position: relative;
  overflow-x: hidden;
}

code.r.hljs.remark-code:hover{
  overflow-x:visible;
  width: 500px;
  border-style: solid;
}
</style>