Publications by coop711
Quiz 230828 (부연설명의 효과)
Red, Black을 잘못 표시한 사람들 랜덤화출석부(8월 22일 기준)에 있는 Red, Black 과 실제 구글예습설문지에 올린 Red, Black 이 다른 사람들의 분포를 파악해 보았습니다. 랜덤화 효과는 여기서도 작동하고 있는 걸 알 수 있습니다. Red를 Black 이라고 한 사람의 수효(20명)과 Bl...
1322 sym 7 img 15 tbl
Quiz 230828 (부연설명의 효과)
Red, Black을 잘못 표시한 사람들 랜덤화출석부(8월 22일 기준)에 있는 Red, Black 과 실제 구글예습설문지에 올린 Red, Black 이 다른 사람들의 분포를 파악해 보았습니다. 랜덤화 효과는 여기서도 작동하고 있는 걸 알 수 있습니다. Red를 Black 이라고 한 사람의 수효(20명)과 Bl...
1322 sym 7 img 15 tbl
Red and Black 230901 : Search for the Best ID only (100 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 1.18 3.49 5.40 5.90 7.52 15.75 Xsum %>% sd %>% round(2) ## [1] 3.13 Xsum %>% `<=`(0.1) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "41" Plot 학번...
39 sym 2 img 1 tbl
Red and Black 230901 : Search for the Best (ID, 100 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.49 3.51 5.38 5.94 7.61 21.23 Xsum %>% sd %>% round(2) ## [1] 3.27 Xsum %>% `<=`(0.1) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "970" Plot 학�...
39 sym 2 img 1 tbl
Red and Black 230901 : Search for the Best (ID, 1,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.49 3.51 5.38 5.94 7.61 21.23 Xsum %>% sd %>% round(2) ## [1] 3.27 Xsum %>% `<=`(0.1) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "970" Plot 학�...
39 sym 2 img 1 tbl
Red and Black 230901 : Search for the Best (ID, 100 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 1.18 3.49 5.40 5.90 7.52 15.75 Xsum %>% sd %>% round(2) ## [1] 3.13 Xsum %>% `<=`(0.1) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "41" Plot 학번...
39 sym 2 img 1 tbl
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"...
39 sym 2 img 1 tbl
Red and Black 230901 : Search for the Best (ID, 10,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.13 3.49 5.37 6.00 7.86 30.14 Xsum %>% sd %>% round(2) ## [1] 3.44 Xsum %>% `<=`(0.1) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "1950" Plot 학�...
39 sym 2 img 1 tbl
Red and Black 230901 : Search for the Best (ID and college, 100 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 6.84 12.86 15.17 16.30 20.20 28.82 Xsum %>% sd %>% round(2) ## [1] 5.15 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "87" Plot 학번 ...
48 sym 2 img 2 tbl
Red and Black 230901 : Search for the Best (ID and college, 100 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 5.13 11.67 14.50 15.38 19.52 27.24 Xsum %>% sd %>% round(2) ## [1] 5.04 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "59" Plot 학번 ...
48 sym 2 img 2 tbl