# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
calc_FstStats <- function(n_ind, n_allele, n_loc, n_st, ploidy, strata, locus, ind_allele_freq) {
.Call(`_strataG_calc_FstStats`, n_ind, n_allele, n_loc, n_st, ploidy, strata, locus, ind_allele_freq)
}
calc_Phist <- function(n_ind, n_allele, n_st, strata, ind_allele_freq, unit_dist, hap_dist) {
.Call(`_strataG_calc_Phist`, n_ind, n_allele, n_st, strata, ind_allele_freq, unit_dist, hap_dist)
}
table2D_int <- function(x, y) {
.Call(`_strataG_table2D_int`, x, y)
}
makeLookupVec <- function(x, y) {
.Call(`_strataG_makeLookupVec`, x, y)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.