::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-27_102e713064323bb3c07fde4a539c786f'}

```{.r .cell-code}
par(bg=NA) 
boxplot(colSums(positive.count) ~ are.still.present, log="y")
```

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