# NOT RUN {
fpath <- system.file("extdata", package="mapfuser")
maps <- list.files(fpath, pattern = "-1", full.names = TRUE)
MF.obj <- read_maps(mapfiles = maps, sep = ",", header = TRUE, type = "delim")
MF.obj <- map_qc(MF.obj)
## Remove two linkage groups manually
to_remove <- c("Col-0_Blh-1.csv_1","Col-0_Blh-1.csv_2" )
MF.obj <- remove_manual(MF.obj, to_remove)
# }
Run the code above in your browser using DataLab