# \donttest{
# Generate the genotype data
SP <- param.geno(pop.marker = 1e4, pop.ind = 1e2)
SP <- genotype(SP)
pop.geno <- SP$geno$pop.geno$gen1
# The mating design
index.sir <- rep(1:50, each = 2)
index.dam <- rep(51:100, each = 2)
# Mate according to mating design
geno.curr <- mate(pop.geno = pop.geno, index.sir = index.sir,
index.dam = index.dam)
geno.curr[1:5, 1:5]
# }
Run the code above in your browser using DataLab