Publications by coop711
Red and Black : Five Variables (Seventh 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....
85 sym 2 img 5 tbl
Red and Black : Five Variables (Sixth 1Million Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 7.00 26.32 31.37 32.04 37.03 92.98 Xsum %>% sd %>% round(2) ## [1] 8.03 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## 5015424 5034043 5092460 5141614 5165246 5170558 5231663 5262506 5311638 5330289 ## 8.27 ...
85 sym 2 img 5 tbl
Red and Black : Five Variables (Ninth 1 Million Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 7.06 26.33 31.37 32.04 37.03 84.65 Xsum %>% sd %>% round(2) ## [1] 8.02 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## 8033839 8179926 8195058 8210658 8282796 8283173 8391802 8440598 8469471 8498778 ## ...
85 sym 2 img 5 tbl
Red and Black : Search for the Best ID and College (100,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 2.10 11.91 15.32 15.99 19.35 54.35 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] "90654" Plot 학�...
48 sym 2 img 2 tbl
Red and Black : Search for the Best ID and College (100 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 4.23 11.47 14.38 16.14 19.42 38.45 Xsum %>% sd %>% round(2) ## [1] 6.71 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "24" Plot 학번 ...
48 sym 2 img 2 tbl
Red and Black : Search for the Best ID and College (1,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 4.23 11.70 15.39 16.00 19.42 39.65 Xsum %>% sd %>% round(2) ## [1] 5.68 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "24" Plot 학번 ...
48 sym 2 img 2 tbl
Red and Black : Search for the Best ID and College (10,000 trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 3.10 11.91 15.38 16.01 19.37 50.24 Xsum %>% sd %>% round(2) ## [1] 5.6 Xsum %>% `<=`(2) %>% which %>% `[`(Xsum, .) %>% round(2) ## named numeric(0) Xmin <- names(Xsum[which(Xsum == min(Xsum))]) Xmin ## [1] "3210" Plot 학번 ...
48 sym 2 img 2 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 : Five Variables (Seond 1 Million Trials)
Summary Xsum %>% summary %>% round(2) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 6.72 26.32 31.35 32.03 37.00 83.79 Xsum %>% sd %>% round(2) ## [1] 8.02 Xsum %>% `<=`(9) %>% which %>% `[`(Xsum, .) %>% round(2) ## 1005175 1053824 1121518 1123893 1259174 1268118 1270612 1371948 1393189 1402118 ## ...
85 sym 2 img 5 tbl
Red and Black : Five Variables (First 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....
85 sym 2 img 5 tbl