add resit data

DominiqueMakowski · Jan 17, 2024 · c6f38dc · c6f38dc
1 parent ed94e3b
commit c6f38dc
Show file tree

Hide file tree

Showing 3 changed files with 5,007 additions and 0 deletions.
diff --git a/.DS_Store b/.DS_Store
diff --git a/BayesianStatistics/2024/data/tap1.R b/BayesianStatistics/2024/data/tap1.R
@@ -3,3 +3,9 @@ df <- data.frame(rt=rgamma(5000, 2.5, 1))
 df$confidence <- c(rbeta(2500, 0.5, 2) / 2, (rbeta(2500, 2, 0.5) / 2) + 0.5)
 
 write.csv(df, "tap1a.csv", row.names=FALSE)
+
+set.seed(2)
+df <- data.frame(reading_time=rgamma(5000, 2.5, 1))
+df$certainty <- c(rbeta(2500, 0.5, 2) / 2, (rbeta(2500, 2, 0.5) / 2) + 0.5)
+
+write.csv(df, "tap1a_resit.csv", row.names=FALSE)