::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-54_2793ca778c041a0470d49c695356c062'}

```{.r .cell-code}
library(MetabarSchool)
qs = seq(from=0,to=3,by=0.1)
environments.hq = apply(environments,MARGIN = 1,H_spectrum,q=qs)
environments.dq = apply(environments,MARGIN = 1,D_spectrum,q=qs)
```
:::