Publications by coop711
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 (3818 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 (3831 sym/34 pcs) 2 img 6 tbl
Quiz 210406 (Wason Selection)
퀴즈 응답 비교 통계학의 기본원리 공평하게 추출하면 … 공평 무난 철저 균일 불참 Red 185 4 1 42 232 Black 183 2 4 37 226 계 368 6 5 79 458 Pearson’s Chi-squared test with simulated p-value (based on 2000 replicates): . Test statistic df P value 0.8155 NA 0.6882 공평하게 추출하면 … (%) 공평 ...
755 sym 10 img 24 tbl
Red and Black : Search for the Best (20000001 - 3000000)
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 <- rbind(Val...
186 sym R (5468 sym/34 pcs) 2 img 6 tbl
Red and Black : Search for the Best (1000001 - 2000000)
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 <- rbind(Val...
186 sym R (5402 sym/34 pcs) 2 img 6 tbl
Red and Black : search for the Best (5000001 - 6000000)
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 <- rbind(Val...
186 sym R (5610 sym/34 pcs) 2 img 6 tbl
Red and Black : Search for the Best (7000001 - 8000000)
Data Search for Best Configuration M1 <- 7000001 M2 <- 8000000 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(Val...
186 sym R (5866 sym/34 pcs) 2 img 6 tbl
Food Habits Comparison 2101
Descriptive Statistics Grades 학번 그룹 시청전 점수 시청후 점수 점수차이 시청전등급 시청후등급 20055107 Black NA NA NA NA NA 20133426 Black 62 60 -2 식생활이 보통입니다 식생활이 보통입니다 20133908 Black NA NA NA NA NA 20142223 Black 58 72 14 식생활을 고치세요 식생활이 보통입니�...
201 sym R (919 sym/2 pcs) 2 img 8 tbl
Quiz 210427 (Prospect Theory)
퀴즈 응답 비교 Wilkinson 소득불평등과 건강 및 사회문제 지표 소득불평등이 심한 나라에서 건강 및 사회문제지수가 나쁘게 나온다. 소득이 많은 나라에서 건강 및 사회문제지수가 나쁘게 나온다. 소득불평등이 심하면 건강 및 사회문제지수가 나빠진다. 소득이 �...
471 sym 8 img 17 tbl
Quiz 210518 (Framing Effects II)
퀴즈 응답 BFI 줄 긋기 몇 개나 맞추나? 0 1 2 3 5 계 Red 4 23 7 19 173 226 Black 8 21 5 16 175 225 계 12 44 12 35 348 451 Pearson’s Chi-squared test with simulated p-value (based on 2000 replicates): . Test statistic df P value 2.024 NA 0.7301 몇 개나 맞추나? (%) 0 1 2 3 5 계 2.7 9.8 2.7 7.8 77.2 100.0 맞힌 �...
527 sym 5 img 12 tbl