# NOT RUN {
# }
# NOT RUN {
#outcross example
data(example_out)
twopt <- rf_2pts(example_out)
all_mark <- make_seq(twopt,"all")
groups <- group(all_mark)
LG1 <- make_seq(groups,1)
LG1.rcd <- rcd(LG1)
#F2 example
data(onemap_example_f2)
twopt <- rf_2pts(onemap_example_f2)
all_mark <- make_seq(twopt,"all")
groups <- group(all_mark)
LG1 <- make_seq(groups,1)
LG1.rcd <- rcd(LG1)
LG1.rcd
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab