DL <- list(dl = c("A", "a"))
HL <- list(hl = c("B", "b"))
genomeObj <- setGenome(listHapLoci = HL, listDipLoci = DL)
selectionObj <- setSelectOnGametesProd(
genomeObj = genomeObj,
indProdFit = c(1, 1, 1, 1, 0.5, 0)
)
Run the code above in your browser using DataLab