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