# 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(fake.f2.onemap)
twopt <- rf.2pts(fake.f2.onemap)
all.mark <- make.seq(twopt,"all")
groups <- group(all.mark)
LG1 <- make.seq(groups,1)
LG1.rcd <- rcd(LG1)
LG1.rcd
# }
Run the code above in your browser using DataLab