data("geneHapR_test")
suppressWarnings(plotHapTable(hapResult))
hap_summary(hapResult)