::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-77_4b51896e21d59a88a5c3bce1d93cc8b3'}

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

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

FALSE  TRUE 
    4   287 
```
:::
:::