# NOT RUN {
h.temp<-sim_homologous(m=6, n.mrk=20, max.d=3, max.ph=3, seed=123)
fake.poly.dat<-poly_cross_simulate(m=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