tests/testthat/test_crossover.R

parents<-list()
parents[[1]]<-rbind(rbinom(n = 9, size = 1, prob = 0.5),
                    rbinom(n = 9, size = 1, prob = 0.5))

test_that("test crossover_p_splt works",
          expect_true(
            is.matrix(crossover_p_split(parents,p=2))
            ))
lixiao0214/GA documentation built on May 3, 2019, 7:06 p.m.