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))
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.