Red and Black 230901: Search for the Best (ID, 100,000 trials)

Summary

Xsum %>%
  summary %>%
  round(2) 

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    0.04    3.47    5.37    6.00    7.86   36.58

Xsum %>%
  sd %>%
  round(2)

## [1] 3.43

Xsum %>%
  `<=`(0.1) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)

## 29273 74201 
##  0.09  0.04

Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin

## [1] "74201"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	12	23	37	46	37	62	242
Black	12	22	38	46	37	63	242