Publications by coop711
Randomization Report (240913)
수강변경 기간 중 들어온 사람들 가나다순 학번 이름 그룹 20241003 강종현 Black 20243806 김률아 Red 20222606 김민경 Red 20242925 김민우 Red 20246218 김민정 Red 20246405 김수민 Black 20203807 김시윤 Black 20242513 김예준 Red 20213609 김원래 Black 20245138 김원영 Red 20241709 김유진 Bl...
120 sym 8 tbl
Quiz 240902 (부연설명의 효과)
Red, Black을 잘못 표시한 사람들 랜덤화출석부(2월 26일 기준)에 있는 Red, Black 과 실제 구글예습설문지에 올린 Red, Black 이 다른 사람들의 분포를 파악해 보았습니다. 랜덤화 효과는 여기서도 작동하고 있는 걸 알 수 있습니다. Red를 Black 이라고 한 사람의 수효(10명)과 Bl...
1350 sym 8 img 16 tbl
Red and Black 240906 : ID only (100 Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 1.08 4.19 6.10 6.15 7.61 13.49 Xsum %>% sd %>% round(2) ## [1] 2.72 Xsum %>% `<=`(1) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "46" Plot 학번 ...
39 sym 2 img 1 tbl
Red and Black 240906 : ID only (1,000 Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.34 3.50 5.54 5.99 7.93 21.42 Xsum %>% sd %>% round(2) ## [1] 3.36 Xsum %>% `<=`(1) %>% which %>% `[`(Xsum, .) %>% round(2) ## 105 180 201 258 302 333 415 509 537 689 828 858 ## 0.43 0.57 0.74 0.98 0.95 0.45 0...
39 sym 2 img 1 tbl
Red and Black 240906 : ID Only (10,000 Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.13 3.48 5.38 5.99 7.86 27.57 Xsum %>% sd %>% round(2) ## [1] 3.41 Xsum %>% `<=`(1) %>% which %>% `[`(Xsum, .) %>% round(2) ## 105 180 201 258 302 333 415 509 537 689 828 858 1035 1076 1100 1189 ## 0.43 0.57 0...
39 sym 2 img 1 tbl
Red and Black 240906 : ID Only (100,000 Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.09 3.48 5.37 6.00 7.84 35.90 Xsum %>% sd %>% round(2) ## [1] 3.43 Xsum %>% `<=`(0.1) %>% which %>% `[`(Xsum, .) %>% round(2) ## 63077 ## 0.09 Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "63077" Plot 학�...
39 sym 2 img 1 tbl
Red and Black 240906 : ID and College (100 Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 5.41 12.40 15.11 15.81 18.86 32.95 Xsum %>% sd %>% round(2) ## [1] 5.16 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "31" Plot 학번 ...
48 sym 2 img 2 tbl
Red and Black 240906 : ID and College (1,000 Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 2.89 12.01 15.36 15.90 19.53 37.85 Xsum %>% sd %>% round(2) ## [1] 5.4 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "385" Plot 학번 ...
48 sym 2 img 2 tbl
Red and Black 240906 : ID and College (10,000 Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 2.58 12.00 15.39 15.96 19.37 43.68 Xsum %>% sd %>% round(2) ## [1] 5.53 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "9339" Plot 학번...
48 sym 2 img 2 tbl
Red and Black 240906 : ID and College (100,000 Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 1.97 11.98 15.36 16.00 19.34 53.81 Xsum %>% sd %>% round(2) ## [1] 5.6 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## 23461 ## 1.97 Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "23461" Plot 학번 ...
48 sym 2 img 2 tbl