---
title: A test post
---

```{r}
library(ggplot2)
```

```{r}
vec <- rnorm(n = 10000)

ggplot(as.data.frame(vec)) + aes(x=vec) +
geom_histogram() + theme_minimal()
```