::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-66_72d15948db7f70d0e6989e0928b2ac8d'}

```{.r .cell-code}
positive.clean.D = apply(positive.clean.count.relfreq,
                         MARGIN = 1,
                         FUN = D_spectrum,
                         q=qs)
```
:::