::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-17_6a57789c5a23bf6c0653a8a21daed5d3'}

```{.r .cell-code}
are.not.singleton = colSums(positive.count) > 1
positive.count = positive.count[,are.not.singleton]
positive.motus = positive.motus[are.not.singleton,]
```
:::