::: {.cell hash='02_R_introduction_cache/pdf/unnamed-chunk-50_5bbcd22ededbe4db88aa808d43746fff'}

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

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