# \donttest{
data(mapmaker_example_f2)
twopt<-rf_2pts(mapmaker_example_f2)
lg<-group(make_seq(twopt, "all"))
##"pre-allocate" an empty list of length lg$n.groups (3, in this case)
maps.list<-vector("list", lg$n.groups)
for(i in 1:lg$n.groups){
##create linkage group i
LG.cur <- make_seq(lg,i)
##ordering
map.cur<-order_seq(LG.cur, subset.search = "sample")
##assign the map of the i-th group to the maps.list
maps.list[[i]]<-make_seq(map.cur, "force")
##write maps.list to ".map" file
write_map(maps.list, tempfile(fileext = ".map"))
}
# }
Run the code above in your browser using DataLab