data(ToyMap)
spc_standard <- set_specie(ToyMap)
## generate standard _de novo_ variability
spc_standard$gamete(n = 100)
if (FALSE) {
## write your function in C++ and then wrap it as a pointer
## check the examples in extdata
## compile the code
Rcpp::sourceCpp(file = system.file("extdata", "Independent.cpp", package = "isqg"),
rebuild = TRUE)
## define a specie w/ custom meiosis
spp_custom <- set_specie(ToyMap, meiosis = indepp())
## check meiosis process
spp_custom$gamete(n = 100)
}
Run the code above in your browser using DataLab