::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-75_b9d29c94c8006c8764c86a778a2be584'}

```{.r .cell-code}
table(s$keep)
```

::: {.cell-output .cell-output-stdout}
```

FALSE  TRUE 
    8   291 
```
:::
:::