::: {.cell hash='02_R_introduction_cache/pdf/unnamed-chunk-124_0cbec53f48b176eec77be64fd84d8bcc'}

```{.r .cell-code}
data_means <- list()
for (name in names(loop_data)) {
  data_means[name] = mean(loop_data[[name]])
}

str(data_means)
```

::: {.cell-output .cell-output-stdout}
```
List of 4
 $ a: num -0.383
 $ b: num 0.417
 $ c: num 0.855
 $ d: num -20.9
```
:::
:::