::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-74_b67354ed6b5a925f88b2313eb8dd8000'}

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

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

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