::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-72_97ab5f0ca9e51eb48f804a224f5cc457'}

```{.r .cell-code}
s = tag_bad_pcr(guiana.samples$sample,guiana.count)
```

::: {.cell-output-display}
![](Lecture_files/figure-revealjs/unnamed-chunk-72-1.png){width=960}
:::

```{.r .cell-code}
guiana.count.clean = guiana.count[s$keep,]
guiana.samples.clean = guiana.samples[s$keep,]
```
:::