::: {.cell hash='02_R_introduction_cache/revealjs/unnamed-chunk-50_ea0364774620e66433e5a6800cd5192e'}

```{.r .cell-code}
vec_numbers <- vector("numeric", 4)
vec_numbers
```

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