genotype <- matrix(c(
2,1,0,0,
2,0,2,2,
0,0,2,2,
0,2,0,0
), byrow = TRUE, ncol = 4)
recombinations(bmh(genotype))
Run the code above in your browser using DataLab