# NOT RUN {
all.mrk<-make_seq_mappoly(hexafake, 1:20)
red.mrk<-elim_redundant(all.mrk)
unique.mrks<-make_seq_mappoly(red.mrk)
all.pairs<-est_pairwise_rf(input.seq = unique.mrks,
ncpus = 1,
verbose=TRUE)
## Full recombination fraction matrix
mat.full<-rf_list_to_matrix(input.twopt=all.pairs)
plot(mat.full)
plot(mat.full, type = "lod")
# }
Run the code above in your browser using DataLab