x <- data.frame(
locus = "D3S1358",
allele = c("12", "13", "14", "15", "15.2", "16", "17", "18", "19"),
count = c(3, 2, 62, 211, 1, 218, 145, 39, 3)
)
freqs <- allele_counts_to_freqs(x)
freqs
attr(freqs, "N")
Run the code above in your browser using DataLab