::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-61_353bb7017238da3dd48975829953793c'}

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