# NOT RUN {
## Tetraploid example (first 50 markers)
all.mrk <- make_seq_mappoly(tetra.solcap, 1:50)
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)
all.pairs
plot(all.pairs, 20, 21)
mat <- rf_list_to_matrix(all.pairs)
plot(mat)
# }
Run the code above in your browser using DataLab