# NOT RUN {
## selecting some markers along the genome
some.mrk<-make_seq_mappoly(hexafake, seq(1, 1500, 30))
all.pairs<-est_pairwise_rf(input.seq = some.mrk)
mat.full<-rf_list_to_matrix(input.twopt = all.pairs)
plot(mat.full)
## selecting two-point information for chromosome 1
mrks.1<-make_seq_mappoly(hexafake, names(which(some.mrk$sequence==1)))
p1<-make_pairs_mappoly(input.seq = mrks.1, input.twopt = all.pairs)
m1<-rf_list_to_matrix(input.twopt = p1)
plot(m1, main.text = "LG1")
# }
Run the code above in your browser using DataLab