h.temp <- sim_homologous(ploidy = 6, n.mrk = 20)
fake.poly.dat <- cross_simulate(h.temp, map.length = 100, n.ind = 200)
plot(fake.poly.dat)
Run the code above in your browser using DataLab