R/RcppExports.R

In YanHanChen/PhD: Phylogenetic Diversity

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

Dq0 <- function(n, f1, f2, g1, g2) {
    .Call('_PhD_Dq0', PACKAGE = 'PhD', n, f1, f2, g1, g2)
}

Dq1_2 <- function(n, g1, A) {
    .Call('_PhD_Dq1_2', PACKAGE = 'PhD', n, g1, A)
}

Dq2 <- function(tmpaL, n, t_bar) {
    .Call('_PhD_Dq2', PACKAGE = 'PhD', tmpaL, n, t_bar)
}

Dq_2nd <- function(n, g1, A, q) {
    .Call('_PhD_Dq_2nd', PACKAGE = 'PhD', n, g1, A, q)
}

Dq <- function(tmpaL, n, qs, g1, A, t_bar) {
    .Call('_PhD_Dq', PACKAGE = 'PhD', tmpaL, n, qs, g1, A, t_bar)
}

delta <- function(del_tmpaL, k, n) {
    .Call('_PhD_delta', PACKAGE = 'PhD', del_tmpaL, k, n)
}

delta_part2 <- function(ai, k, n) {
    .Call('_PhD_delta_part2', PACKAGE = 'PhD', ai, k, n)
}

RPD_old <- function(x, n, m, q) {
    .Call('_PhD_RPD_old', PACKAGE = 'PhD', x, n, m, q)
}

RPD <- function(ai, Lis, n, m, q) {
    .Call('_PhD_RPD', PACKAGE = 'PhD', ai, Lis, n, m, q)
}

ghat_pt2 <- function(ai, n, mmax) {
    .Call('_PhD_ghat_pt2', PACKAGE = 'PhD', ai, n, mmax)
}