Publications by coop711
Red and Black 230901 : Search for the Best (ID and college, 1,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 4.72 11.91 15.28 16.05 19.42 47.81 Xsum %>% sd %>% round(2) ## [1] 5.74 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "893" Plot 학번 ...
48 sym 2 img 2 tbl
Red and Black 230901 : Search for the Best (ID and college, 10,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 2.62 11.95 15.41 16.03 19.43 47.81 Xsum %>% sd %>% round(2) ## [1] 5.67 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "4737" Plot 학번...
48 sym 2 img 2 tbl
Red and Black 230901 : Search for the Best (ID and college, 100,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 1.35 11.92 15.33 15.98 19.34 50.45 Xsum %>% sd %>% round(2) ## [1] 5.62 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## 36358 ## 1.35 Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "36358" Plot 학번...
48 sym 2 img 2 tbl
Red and Black 230901 : Search for the Best (Five, 1,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 12.25 26.26 31.18 32.07 37.46 66.33 Xsum %>% sd %>% round(2) ## [1] 8.3 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "654" Plot 학번 ...
85 sym 2 img 5 tbl
Red and Black 230901 : Search for the Best (Five, 100 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 15.90 27.78 31.55 32.24 37.21 56.50 Xsum %>% sd %>% round(2) ## [1] 7.36 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "15" Plot 학번 ...
85 sym 2 img 5 tbl
Red and Black 230901 : Search for the Best (Five, 10,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 9.32 26.25 31.28 31.98 37.01 73.06 Xsum %>% sd %>% round(2) ## [1] 8.04 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "5846" Plot 학번...
85 sym 2 img 5 tbl
Red and Black 230901 : Search for the Best (Five, 100,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 8.35 26.32 31.32 32.00 36.95 89.71 Xsum %>% sd %>% round(2) ## [1] 7.97 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## 65990 ## 8.35 Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "65990" Plot 학번...
85 sym 2 img 5 tbl
Red and Black 230901 : Search for the Best (Five, 10th 1 million trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 5.65 26.35 31.39 32.04 37.00 85.52 Xsum %>% sd %>% round(2) ## [1] 7.98 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## 9014825 9028589 9039825 9097450 9107463 9149980 9202012 9220001 9229038 9233142 ## 8.03 ...
85 sym 2 img 5 tbl
Red and Black 230901 : Search for the Best (Five, 10th one million trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 5.65 26.35 31.39 32.04 37.00 85.52 Xsum %>% sd %>% round(2) ## [1] 7.98 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## 9014825 9028589 9039825 9097450 9107463 9149980 9202012 9220001 9229038 9233142 ## 8.03 ...
85 sym 2 img 5 tbl
Red and Black 230901 : Search for the Best (Five, First 1 Million Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 7.36 26.35 31.37 32.03 37.00 89.71 Xsum %>% sd %>% round(2) ## [1] 7.99 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## 65990 123915 150899 245919 248176 255331 280316 314936 327995 355044 371310 ## 8....
85 sym 2 img 5 tbl