::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-76_b1a54e4732a4d0938ea86f71d5a8b669'}

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

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

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