added random_numbers4 (binomial)

s-wien · Mar 18, 2024 · 6cef983 · 6cef983
1 parent 613bea4
commit 6cef983
Show file tree

Hide file tree

Showing 7 changed files with 457 additions and 0 deletions.
diff --git a/code/01_make_output.R b/code/01_make_output.R
@@ -25,3 +25,12 @@ saveRDS(
   random_numbers3,
   file = here::here("output", "random_numbers3.rds")
 )
+
+set.seed(4)
+random_numbers4 <- rbinom(100, 1, 0.25)
+
+saveRDS(
+  random_numbers4,
+  file = here::here("output", "random_numbers4.rds")
+)
+
diff --git a/output/random_numbers1.rds b/output/random_numbers1.rds
diff --git a/output/random_numbers2.rds b/output/random_numbers2.rds
diff --git a/output/random_numbers3.rds b/output/random_numbers3.rds
diff --git a/output/random_numbers4.rds b/output/random_numbers4.rds
diff --git a/report.Rmd b/report.Rmd
@@ -26,6 +26,9 @@ random_numbers2 <- readRDS(
 random_numbers3 <- readRDS(
   here::here("output/random_numbers3.rds")
 )
+random_numbers4 <- readRDS(
+  here::here("output/random_numbers4.rds")
+)
 ```
 
 # Random numbers 1
@@ -48,3 +51,10 @@ hist(random_numbers2)
 #| fig.cap = "Third set of random numbers"
 hist(random_numbers3)
 ```
+
+# Random numbers 4
+
+```{r, random-numbers4-histogram}
+#| fig.cap = "Fourth set of random numbers"
+hist(random_numbers4)
+```
diff --git a/report.html b/report.html