Publications by coop711
Randomization Report 210904
Randomization Effects 학번 비교 전체 비교 2007 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 Red 1 0 0 4 12 28 28 59 21 48 110 Black 0 1 2 4 12 26 28 56 21 51 110 21학번 기준 21학번 20학번 이전 Red 110 201 Black 110 201 20학번 기준 20학번 19학번 이전 Red 158 153 Black 161 150 19학번 기준 19학번...
198 sym 1 img 15 tbl
Randomization Report 210829
Randomization Effects 학번 비교 전체 비교 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 Red 0 2 4 12 30 29 54 19 49 109 Black 1 2 4 12 28 26 54 19 49 113 21학번 기준 21학번 20학번 이전 Red 109 199 Black 113 195 20학번 기준 20학번 19학번 이전 Red 158 150 Black 162 146 19학번 기준 19학번 18학번...
198 sym 1 img 15 tbl
Randomized Class Roll 210829
가나다순 id name group 20188033 DENG CHUNHUI Black 20208002 JIA KANGZE Red 20208004 LIU RAN Black 20208010 SHI YU Black 20188047 SU YUNJIE Black 20178042 SUN YINGZHENG Red 20198039 SUN ZEWEI Red 20178043 SUN ZEWEN Black 20215102 강명재 Red 20206402 강민성 Black 20163602 강민우 Black 20185201 강민정 Black 20216202 강...
12 sym 3 tbl
Randomization Report 210829
Randomization Effects 학번 비교 전체 비교 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 Red 0 2 4 13 30 27 51 19 47 114 Black 1 2 4 11 28 28 57 19 51 107 21학번 기준 21학번 20학번 이전 Red 114 193 Black 107 201 20학번 기준 20학번 19학번 이전 Red 161 146 Black 158 150 19학번 기준 19학번 18학번...
198 sym 1 img 15 tbl
Red and Black : Search for the Best (100000 Trials)
Data Search for Best Configuration M1 <- 1 M2 <- 100000 Xsum <- numeric(0) Values_mat <- numeric(0) for(k in M1:M2){ set.seed(k) N <- nrow(class_roll) class_roll$group <- sample(1:N) %% 2 %>% factor(levels = c(0, 1), labels = c("Red", "Black")) Xsum <- c(Xsum, red_and_black(class_roll)$Xsum) Values_mat <- rbind(Values_mat...
186 sym R (4417 sym/34 pcs) 2 img 6 tbl
Randomization Report 210904
Randomization Effects 8월 29일자 출석부에만 나오는 사람들의 분포 group mark mark2 Red 0829 NA Red 0829 NA Red 0829 NA Red 0829 NA Red 0829 NA Black 0829 NA Red 0829 NA Black 0829 NA Red 0829 NA Black 0829 NA Black 0829 NA Red 0829 NA Black 0829 NA Red 0829 NA Black 0829 NA Red 0829 NA Red 0829 NA Black 0829 NA...
217 sym 1 img 16 tbl
Red and Black 10th One Million Trials
Data Search for Best Configuration M1 <- 9000001 M2 <- 10000000 Xsum <- numeric(0) Values_mat <- numeric(0) for(k in M1:M2){ set.seed(k) N <- nrow(class_roll) class_roll$group <- sample(1:N) %% 2 %>% factor(levels = c(0, 1), labels = c("Red", "Black")) Xsum <- c(Xsum, red_and_black(class_roll)$Xsum) Values_mat...
186 sym R (6097 sym/34 pcs) 2 img 6 tbl
Red and Black 6th One Million Trials
Data Search for Best Configuration M1 <- 5000001 M2 <- 6000000 Xsum <- numeric(0) Values_mat <- numeric(0) for(k in M1:M2){ set.seed(k) N <- nrow(class_roll) class_roll$group <- sample(1:N) %% 2 %>% factor(levels = c(0, 1), labels = c("Red", "Black")) Xsum <- c(Xsum, red_and_black(class_roll)$Xsum) Values_mat ...
186 sym R (6015 sym/34 pcs) 2 img 6 tbl
Red and Black 2nd One Million Trials
Data Search for Best Configuration M1 <- 1000001 M2 <- 2000000 Xsum <- numeric(0) Values_mat <- numeric(0) for(k in M1:M2){ set.seed(k) N <- nrow(class_roll) class_roll$group <- sample(1:N) %% 2 %>% factor(levels = c(0, 1), labels = c("Red", "Black")) Xsum <- c(Xsum, red_and_black(class_roll)$Xsum) Values_mat ...
186 sym R (6242 sym/34 pcs) 2 img 6 tbl
Red and Black 7th One Million Trials
Data Search for Best Configuration M1 <- 6000001 M2 <- 7000000 Xsum <- numeric(0) Values_mat <- numeric(0) for(k in M1:M2){ set.seed(k) N <- nrow(class_roll) class_roll$group <- sample(1:N) %% 2 %>% factor(levels = c(0, 1), labels = c("Red", "Black")) Xsum <- c(Xsum, red_and_black(class_roll)$Xsum) Values_mat ...
186 sym R (6318 sym/34 pcs) 2 img 6 tbl