::: {.cell hash='Lecture_cache/revealjs/unnamed-chunk-79_83938f696d99c41b84de26e52b79db0b'}

```{.r .cell-code}
guiana.samples.mean = aggregate(guiana.samples.clean,
                              by = list(guiana.samples.clean$sample),
                              FUN=function(i) i[1])
n = guiana.samples.mean[,1]
guiana.samples.mean = guiana.samples.mean[,-1]
rownames(guiana.samples.mean)=as.character(n)

dim(guiana.samples.mean)
```

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