::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-82_16dab7bee2b491a9f9adca47b9ee9473'}

```{.r .cell-code}
xy = guiana.count.final[,order(-colSums(guiana.count.final))]
xy = xy[,1:2]
xy.hellinger = decostand(xy,method = "hellinger")
```
:::