data(example_out)
twopts <- est.rf.2pts(example_out)
link_gr <- group(twopts)
LG1 <- extract.group(link_gr, 1) # extracts the first linkage group
LG1
LG1 <- remove.marker(LG1,"M1") # linkage group 1 without first marker
LG1
Run the code above in your browser using DataLab