Publications by coop711
Red and Black 240226 : Search for the Best ID only (100 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 1.50 3.80 5.24 6.10 7.92 17.58 Xsum %>% sd %>% round(2) ## [1] 3.33 Xsum %>% `<=`(0.1) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "45" Plot 학번...
39 sym 2 img 1 tbl
Red and Black 240226 : Search for the Best ID only (1,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.32 3.39 5.29 6.00 7.93 22.56 Xsum %>% sd %>% round(2) ## [1] 3.52 Xsum %>% `<=`(0.1) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "774" Plot 학�...
39 sym 2 img 1 tbl
Red and Black 240226 : Search for the Best ID only (10,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.06 3.45 5.36 6.03 7.86 30.74 Xsum %>% sd %>% round(2) ## [1] 3.48 Xsum %>% `<=`(0.1) %>% which %>% `[`(Xsum, .) %>% round(2) ## 2550 ## 0.06 Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "2550" Plot 학번 ...
39 sym 2 img 1 tbl
Red and Black 240226 : Search for the Best ID only (100,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.04 3.47 5.36 6.00 7.84 33.81 Xsum %>% sd %>% round(2) ## [1] 3.44 Xsum %>% `<=`(0.1) %>% which %>% `[`(Xsum, .) %>% round(2) ## 2550 84922 88477 ## 0.06 0.04 0.07 Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ##...
39 sym 2 img 1 tbl
Red and Black 240226 : Search for the Best (ID and college, 100 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 6.22 11.67 15.95 16.48 19.63 33.33 Xsum %>% sd %>% round(2) ## [1] 5.9 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "98" Plot 학번 2...
48 sym 2 img 2 tbl
Red and Black 240226 : Search for the Best (ID and college, 10,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 2.24 11.99 15.43 16.09 19.45 48.99 Xsum %>% sd %>% round(2) ## [1] 5.73 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "486" Plot 학번 ...
48 sym 2 img 2 tbl
Red and Black 240226 : Search for the Best (ID and college, 1,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 2.24 11.89 15.21 15.84 19.24 39.51 Xsum %>% sd %>% round(2) ## [1] 5.55 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "486" Plot 학번 ...
48 sym 2 img 2 tbl
Red and Black 240226 : Search for the Best (ID and college, 100,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 2.24 11.90 15.35 16.02 19.41 55.31 Xsum %>% sd %>% round(2) ## [1] 5.7 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "486" Plot 학번 ...
48 sym 2 img 2 tbl
Red and Black 240226 : Search for the Best First 1 Million Trials
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 7.31 26.33 31.37 32.04 37.03 87.00 Xsum %>% sd %>% round(2) ## [1] 8.03 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## 13595 68096 77749 97103 116509 292400 297322 345336 375274 601111 605877 ## 8....
85 sym 2 img 5 tbl
Red and Black 240226 : Search for the Best 2nd 1 Million Trials
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 6.99 26.33 31.36 32.03 37.01 85.38 Xsum %>% sd %>% round(2) ## [1] 8.02 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## 1048428 1078744 1086791 1100633 1220941 1350164 1375454 1420687 1445810 1476197 ## ...
85 sym 2 img 5 tbl