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