h.temp <- sim_homologous(ploidy = 6, n.mrk = 20, max.d = 3, max.ph = 3, seed = 123)
fake.poly.dat <- poly_cross_simulate(ploidy = 6, rf.vec = .05, n.mrk = 20,
n.ind = 200, h.temp, seed = 123)
plot(fake.poly.dat)
Run the code above in your browser using DataLab