# read haplotypes
h <- readxl::read_excel(system.file("extdata","South_Australia.xlsx",
package = "disclapmix2"),
col_types = "text")[-c(1,2)]
# obtain counts
counts <- disclapmix2::haplotype_counts(h)
# all haplotypes in the dataset are unique
stopifnot(all(counts == 1))
Run the code above in your browser using DataLab