::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-64_3e757aba076ee73163ebe2cc1b3a9b68'}

```{.r .cell-code}
data(positive.clean.count)

positive.clean.count.relfreq = decostand(positive.clean.count,
                                         method = "total")

positive.clean.H = apply(positive.clean.count.relfreq,
                         MARGIN = 1,
                         FUN = H_spectrum,
                         q=qs)
```
:::