Publications by coop711
Quiz 210830 (Bias in Questionnaire)
Quiz 응답 비교 Dewey as good as elected, statistics convince Roper Roper(Counts) 통계학 통계 자료 통계청 정보 계 Red 35 223 32 10 5 305 Black 30 235 27 8 3 303 계 65 458 59 18 8 608 Pearson’s Chi-squared test with simulated p-value (based on 2000 replicates): . Test statistic df P value 1.838 NA 0.7776 Roper(%) 통�...
462 sym 5 img 12 tbl
Red and Black Search for the Best (First One Million Trials)
Data Search for Best Configuration M1 <- 1 M2 <- 1000000 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_ma...
186 sym R (11870 sym/34 pcs) 2 img 6 tbl
Red and Black 5th One Million Trials
Data Search for Best Configuration M1 <- 4000001 M2 <- 5000000 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 (5830 sym/34 pcs) 2 img 6 tbl
Red and Black 1st One Million Trials
Data Search for Best Configuration M1 <- 1 M2 <- 1000000 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 <- rbi...
186 sym R (12086 sym/34 pcs) 2 img 6 tbl
Red and Black 9th One Million Trials
Data Search for Best Configuration M1 <- 8000001 M2 <- 9000000 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 (6210 sym/34 pcs) 2 img 6 tbl
Red and Black 3rd One Million Trials
Data Search for Best Configuration M1 <- 2000001 M2 <- 3000000 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 (6106 sym/34 pcs) 2 img 6 tbl
Red and Black : Search for the Best (1,000 trials)
Data Search for Best Configuration M1 <- 1 M2 <- 1000 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 (3986 sym/34 pcs) 2 img 6 tbl
Red and Black : Search for the Best (100 Trials)
Data Search for Best Configuration M1 <- 1 M2 <- 100 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, r...
186 sym R (3808 sym/34 pcs) 2 img 6 tbl
Red and Black : Search for the Best, First 10 Thousand
Data Search for Best Configuration M1 <- 1 M2 <- 10000 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 (5828 sym/34 pcs) 2 img 6 tbl
Randomized Class Roll 210904
가나다순 id name group 20188033 DENG CHUNHUI Black 20208002 JIA KANGZE Red 20208004 LIU RAN Black 20208010 SHI YU Black 20188047 SU YUNJIE Black 20198039 SUN ZEWEI Red 20215102 강명재 Red 20206402 강민성 Black 20163602 강민우 Black 20185201 강민정 Black 20216202 강민주 Red 20213302 강범서 Red 20182301 강서연...
12 sym 3 tbl