# \donttest{
data("geneHapR_test")
seqs
seqs <- trimSeqs(seqs,
minFlankFraction = 0.1)
seqs
hapResult <- seqs2hap(seqs,
Ref = names(seqs)[1],
hetero_remove = TRUE, na_drop = TRUE,
maxGapsPerSeq = 0.25,
hapPrefix = "H")
# }
Run the code above in your browser using DataLab