# NOT RUN {
freqs <- read_allele_freqs(system.file("extdata","FBI_extended_Cauc.csv",
package = "numberofalleles"))
p <- pr_total_number_of_distinct_alleles(contributors = c("U1","U2"),
freqs = freqs)
mean(p)
var(p)
# }
Run the code above in your browser using DataLab