report.Rmd

---
title: Five sets of random numbers
author: You
output: html_document
---

```{r, here-i-am, include = FALSE}
here::i_am(
  "report.Rmd"
)
```

```{r, load-random-numbers, include = FALSE}
random_numbers1 <- readRDS(
  here::here("output/random_numbers1.rds")
)

random_numbers2 <- readRDS(
  here::here("output/random_numbers2.rds")
)

random_numbers3 <- readRDS(
  here::here("output/random_numbers3.rds")
)

random_numbers4 <- readRDS(
  here::here("output/random_numbers4.rds")
)

random_numbers5 <- readRDS(
  here::here("output/random_numbers5.rds")
)
```

# Random numbers 1

```{r, random-numbers1-histogram}
#| fig.cap = "First set of random numbers"
hist(random_numbers1)
```

# Random numbers 2

```{r, random-numbers2-histogram}
#| fig.cap = "Second set of random numbers"
hist(random_numbers2)
```

# Random numbers 3

```{r, random-numbers3-histogram}
#| fig.cap = "Third set of random numbers"
hist(random_numbers3)
```


# Random numbers 4

```{r, random-numbers4-histogram}
#| fig.cap = "Forth set of random numbers"
hist(random_numbers4)
```

# Random numbers 5

```{r, random-numbers5-histogram}
#| fig.cap = "Fifth set of random numbers"
hist(random_numbers5)
```