::: {.cell hash='02_R_introduction_cache/revealjs/unnamed-chunk-122_f2ddbff7a20fd256c328f3823043c3de'}

```{.r .cell-code}
data_means <- list(
  a = mean(loop_data$a),
  b = mean(loop_data$b),
  c = mean(loop_data$c),
  d = mean(loop_data$d)
)
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
```
:::
:::