::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-19_bec4aeb3fe98f4d9d879827492fcd3f5'}

```{.r .cell-code}
par(bg=NA) 
boxplot(rowSums(positive.count) ~ positive.samples$dilution,log="y")
abline(h = median(rowSums(positive.count)),lw=2,col="red",lty=2)
```

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