Publications by coop711
Red and Black : 2201 (7th milllion)
Data Search for Best Configuration M1 <- 6000001 M2 <- 7000000 Xsum <- numeric(0) Xsum <- sapply(M1:M2, red_and_black) # Values_mat <- numeric(0) # for(k in M1:M2){ # set.seed(k) # N <- nrow(class_roll) # class_roll$group <- # sample(1:N) %% # 2 %>% # factor(levels = c(0, 1), labels = c("Red", "Black")) # Xsum <...
184 sym R (6046 sym/32 pcs) 2 img 6 tbl
Red and Black : 2201 (1st milllion)
Data Search for Best Configuration M1 <- 1 M2 <- 1000000 Xsum <- numeric(0) Xsum <- sapply(M1:M2, red_and_black) # Values_mat <- numeric(0) # for(k in M1:M2){ # set.seed(k) # N <- nrow(class_roll) # class_roll$group <- # sample(1:N) %% # 2 %>% # factor(levels = c(0, 1), labels = c("Red", "Black")) # Xsum <- c(Xs...
184 sym R (5451 sym/32 pcs) 2 img 6 tbl
Red and Black : 2201 (3rd milllion)
Data Search for Best Configuration M1 <- 1000001 M2 <- 3000000 Xsum <- numeric(0) Xsum <- sapply(M1:M2, red_and_black) # Values_mat <- numeric(0) # for(k in M1:M2){ # set.seed(k) # N <- nrow(class_roll) # class_roll$group <- # sample(1:N) %% # 2 %>% # factor(levels = c(0, 1), labels = c("Red", "Black")) # Xsum <...
184 sym R (7572 sym/32 pcs) 2 img 6 tbl
Red and Black : 2201 (7th million)
Data Search for Best Configuration M1 <- 6000001 M2 <- 7000000 Xsum <- numeric(0) Xsum <- sapply(M1:M2, red_and_black) # Values_mat <- numeric(0) # for(k in M1:M2){ # set.seed(k) # N <- nrow(class_roll) # class_roll$group <- # sample(1:N) %% # 2 %>% # factor(levels = c(0, 1), labels = c("Red", "Black")) # Xsum <- c(Xsum, re...
184 sym R (5908 sym/32 pcs) 2 img 6 tbl
Red and Black 2201 - 100 trials
Data Search for Best Configuration M1 <- 1 M2 <- 100 Xsum <- numeric(0) Xsum <- sapply(M1:M2, red_and_black) # Values_mat <- numeric(0) # for(k in M1:M2){ # set.seed(k) # N <- nrow(class_roll) # class_roll$group <- # sample(1:N) %% # 2 %>% # factor(levels = c(0, 1), labels = c("Red", "Black")) # Xsum <- c(Xsum, red_and_blac...
184 sym R (3392 sym/32 pcs) 2 img 6 tbl
Red and Black 2201 - 1000 Trials
Data Search for Best Configuration M1 <- 1 M2 <- 1000 Xsum <- numeric(0) Xsum <- sapply(M1:M2, red_and_black) # Values_mat <- numeric(0) # for(k in M1:M2){ # set.seed(k) # N <- nrow(class_roll) # class_roll$group <- # sample(1:N) %% # 2 %>% # factor(levels = c(0, 1), labels = c("Red", "Black")) # Xsum <- c(Xsum, red_and_bla...
184 sym R (3384 sym/32 pcs) 2 img 6 tbl
Red and Black 2201 - 10000 Trials
Data Search for Best Configuration M1 <- 1 M2 <- 10000 Xsum <- numeric(0) Xsum <- sapply(M1:M2, red_and_black) # Values_mat <- numeric(0) # for(k in M1:M2){ # set.seed(k) # N <- nrow(class_roll) # class_roll$group <- # sample(1:N) %% # 2 %>% # factor(levels = c(0, 1), labels = c("Red", "Black")) # Xsum <- c(Xsum, red_and_bl...
184 sym R (3429 sym/32 pcs) 2 img 6 tbl
Red and Black : 2201 (5th milllion)
Data Search for Best Configuration M1 <- 3000001 M2 <- 5000000 Xsum <- numeric(0) Xsum <- sapply(M1:M2, red_and_black) # Values_mat <- numeric(0) # for(k in M1:M2){ # set.seed(k) # N <- nrow(class_roll) # class_roll$group <- # sample(1:N) %% # 2 %>% # factor(levels = c(0, 1), labels = c("Red", "Black")) # Xsum <...
184 sym R (7873 sym/32 pcs) 2 img 6 tbl
Red and Black : 2201 (6th milllion)
Data Search for Best Configuration M1 <- 5000001 M2 <- 6000000 Xsum <- numeric(0) Xsum <- sapply(M1:M2, red_and_black) # Values_mat <- numeric(0) # for(k in M1:M2){ # set.seed(k) # N <- nrow(class_roll) # class_roll$group <- # sample(1:N) %% # 2 %>% # factor(levels = c(0, 1), labels = c("Red", "Black")) # Xsum <...
184 sym R (5942 sym/32 pcs) 2 img 6 tbl
Red and Black : 2201 (9th million)
Data Search for Best Configuration M1 <- 8000001 M2 <- 9000000 Xsum <- numeric(0) Xsum <- sapply(M1:M2, red_and_black) # Values_mat <- numeric(0) # for(k in M1:M2){ # set.seed(k) # N <- nrow(class_roll) # class_roll$group <- # sample(1:N) %% # 2 %>% # factor(levels = c(0, 1), labels = c("Red", "Black")) # Xsum <- c(Xsum, re...
184 sym R (5757 sym/32 pcs) 2 img 6 tbl