R/RcppExports.R

In deponent-verb/popgen.stats: Popgen summary statistics calculator

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

#' Tajima D function
#' @param G Binary genome matrix of 0's and 1's. Each column is a SNP, each row is an individual.
#' output: scalar value of Tajima's D for the sampled population.
#' @export
tajd <- function(G) {
    .Call('_popgen_stats_tajd', PACKAGE = 'popgen.stats', G)
}

a1f <- function(N) {
    .Call('_popgen_stats_a1f', PACKAGE = 'popgen.stats', N)
}

a2f <- function(N) {
    .Call('_popgen_stats_a2f', PACKAGE = 'popgen.stats', N)
}

b1f <- function(N) {
    .Call('_popgen_stats_b1f', PACKAGE = 'popgen.stats', N)
}

b2f <- function(N) {
    .Call('_popgen_stats_b2f', PACKAGE = 'popgen.stats', N)
}

c1f <- function(b1, a1) {
    .Call('_popgen_stats_c1f', PACKAGE = 'popgen.stats', b1, a1)
}

c2f <- function(a1, a2, b2, N) {
    .Call('_popgen_stats_c2f', PACKAGE = 'popgen.stats', a1, a2, b2, N)
}

e1f <- function(c1, a1) {
    .Call('_popgen_stats_e1f', PACKAGE = 'popgen.stats', c1, a1)
}

e2f <- function(a1, a2, c2) {
    .Call('_popgen_stats_e2f', PACKAGE = 'popgen.stats', a1, a2, c2)
}

theta_t <- function(G) {
    .Call('_popgen_stats_theta_t', PACKAGE = 'popgen.stats', G)
}

theta_w <- function(G) {
    .Call('_popgen_stats_theta_w', PACKAGE = 'popgen.stats', G)
}