Publications by coop711
Red and Black : Search for the Best ID only (10,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.12 3.55 5.38 6.01 7.82 30.66 Xsum %>% sd %>% round(2) ## [1] 3.4 Xsum %>% `<=`(0.1) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "4729" Plot 학�...
39 sym 2 img 1 tbl
Red and Black : Search for the Best ID and College (1,000,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.89 11.90 15.34 16.01 19.40 66.62 Xsum %>% sd %>% round(2) ## [1] 5.68 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## 506438 661442 720484 802770 822224 829048 908281 ## 1.84 1.97 0.89 1.95 1.66 1.88 ...
48 sym 2 img 2 tbl
Red and Black : Search for the Best ID only (100,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.02 3.47 5.36 6.00 7.85 32.68 Xsum %>% sd %>% round(2) ## [1] 3.44 Xsum %>% `<=`(0.1) %>% which %>% `[`(Xsum, .) %>% round(2) ## 36244 80795 ## 0.02 0.07 Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "36244"...
39 sym 2 img 1 tbl
Red_and_Black : Search for the Best (1 Million Trials)
Plot 학번 2017 이전 2018 2019 2020 2021 2022 2023 Red 22 41 58 77 56 165 83 Black 24 41 55 84 60 157 82 e-mail 서비스업체 네이버 구글 기타서비스 Red 408 74 20 Black 405 75 23 전화번호의 분포 0000~0999 1000~1999 2000~2999 3000~3999 4000~4999 5000~5999 6000~6999 7000~7999 8000~8999 9000~9999 Red 47 51 48 52 46 44 ...
67 sym 2 img 5 tbl
Red and Black : Search for the Best, 5 Variables (1 Million Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 7.68 26.32 31.36 32.03 37.02 85.74 Xsum %>% sd %>% round(2) ## [1] 8.02 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## 32279 52928 208784 214382 423538 444846 506438 538443 581372 604760 624762 ## 8.98 8.30 ...
85 sym 2 img 5 tbl
Red and Black : Search for the Best, ID and College (1 Million Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.89 11.90 15.34 16.01 19.40 66.62 Xsum %>% sd %>% round(2) ## [1] 5.68 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## 506438 661442 720484 802770 822224 829048 908281 ## 1.84 1.97 0.89 1.95 1.66 1.88 ...
48 sym 2 img 2 tbl
Red and Black : Search for the Best 230227 (100 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 17.15 26.98 31.03 33.06 38.39 66.53 Xsum %>% sd %>% round(2) ## [1] 9.22 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "88" Plot 학번 ...
85 sym 2 img 5 tbl
Red_and_Black : Search for the Best 230227 (1000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 11.51 26.29 31.22 32.05 36.82 66.53 Xsum %>% sd %>% round(2) ## [1] 8.17 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "585" Plot 학번 ...
85 sym 2 img 5 tbl
Red_and_Black : Search for the Best 230227 (10000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 10.31 26.35 31.49 32.06 36.96 77.12 Xsum %>% sd %>% round(2) ## [1] 8 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "8012" Plot 학번 2...
85 sym 2 img 5 tbl
Red_and_Black : Search for the Best 230227 (100000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 8.30 26.29 31.34 32.00 36.95 84.38 Xsum %>% sd %>% round(2) ## [1] 8.01 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## 32279 52928 ## 8.98 8.30 Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "52928" ...
85 sym 2 img 5 tbl