# NOT RUN {
require(polymapR)
dat<-export_data_to_polymapR(hexafake)
F1checked <- checkF1(dosage_matrix = dat,
parent1 = "P1",
parent2 = "P2",
F1 = colnames(dat)[-c(1:2)],
polysomic = TRUE,
disomic = FALSE,
mixed = FALSE,
ploidy = 6)
head(F1checked$checked_F1)
# }
Run the code above in your browser using DataLab