## 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$chrom == 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