::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-58_a1de30705be4967d4674ed54ecdb8f33'}

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