::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-78_8e9c2357f9aa00b5c98cfa0e0f58352d'}

```{.r .cell-code}
guiana.samples.clean = cbind(guiana.samples.clean,s[rownames(guiana.samples.clean),])

guiana.count.mean = aggregate(decostand(guiana.count.clean,method = "total"),
                              by = list(guiana.samples.clean$sample),
                              FUN=mean)

n = guiana.count.mean[,1]
guiana.count.mean = guiana.count.mean[,-1]
rownames(guiana.count.mean)=as.character(n)
guiana.count.mean = as.matrix(guiana.count.mean)

dim(guiana.count.mean)
```

::: {.cell-output .cell-output-stdout}
```
[1]   84 7884
```
:::
:::