::: {.cell hash='02_R_introduction_cache/pdf/unnamed-chunk-123_e01dd1f0f17670d61bfbf07333e4a59c'}

```{.r .cell-code}
data_means <- list()
for (i in 1:length(loop_data)) {
  data_means <- c(
    data_means,
    mean(loop_data[[i]])
  )
}

str(data_means)
```

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