Random Hall

Spoilers for 2021 MH.

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──

## ✓ ggplot2 3.3.3     ✓ purrr   0.3.4
## ✓ tibble  3.0.4     ✓ dplyr   1.0.2
## ✓ tidyr   1.1.2     ✓ stringr 1.4.0
## ✓ readr   1.4.0     ✓ forcats 0.5.0

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

theme_set(theme_bw())
x <- read_delim("random_nums.tsv", delim="\t", col_names=(c("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q")))

## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   A = col_double(),
##   B = col_double(),
##   C = col_double(),
##   D = col_double(),
##   E = col_double(),
##   F = col_double(),
##   G = col_double(),
##   H = col_double(),
##   I = col_double(),
##   J = col_double(),
##   K = col_double(),
##   L = col_double(),
##   M = col_double(),
##   N = col_double(),
##   O = col_double(),
##   P = col_double(),
##   Q = col_double()
## )

sim <- tibble(A=0,
              B=rnorm(10000,4,sqrt(3)),
              C=runif(10000,4,7),
              D=rnorm(10000,mean=5,sqrt(6)),
              E=runif(10000,2,4),
              F=rexp(10000,2),
              I=0,
              J=rpois(10000,4),
              N=rpois(10000,8),
              O=rexp(10000,6),
              P=rchisq(10000,3),
              Q=rpois(10000,1))

First 5 columns all have duplicates.

ggplot(x,aes(A))+ geom_density()

ggplot(sim,aes(A))+ geom_density()

ggplot(x,aes(B))+ geom_density()

ggplot(sim,aes(B))+ geom_density()

ggplot(x,aes(C))+ geom_density()

ggplot(sim,aes(C))+ geom_density()

ggplot(x,aes(D))+ geom_density()

ggplot(sim,aes(D))+ geom_density()

ggplot(x,aes(E))+ geom_density()

ggplot(sim,aes(E))+ geom_density()

ggplot(x,aes(F))+ geom_density()

ggplot(sim,aes(F))+ geom_density()

ggplot(x,aes(I))+ geom_density()

ggplot(x,aes(J))+ geom_bar()

ggplot(sim,aes(J))+ geom_bar()

ggplot(x,aes(N))+ geom_bar()

ggplot(sim,aes(N))+ geom_bar()

ggplot(x,aes(O))+ geom_density()

ggplot(sim,aes(O))+ geom_density()

ggplot(x,aes(P))+ geom_density()

ggplot(sim,aes(P))+ geom_density()

ggplot(x,aes(Q))+ geom_bar()

ggplot(sim,aes(Q))+geom_bar()