R/RcppExports.R

In kisungyou/SHT: Statistical Hypothesis Testing Toolbox

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

cpp_cov1_mxPBF_single <- function(X, a0, b0, gamma) {
    .Call('_SHT_cpp_cov1_mxPBF_single', PACKAGE = 'SHT', X, a0, b0, gamma)
}

cpp_cov1_mxPBF_multiple <- function(X, a0, b0, gamma, nCores) {
    .Call('_SHT_cpp_cov1_mxPBF_multiple', PACKAGE = 'SHT', X, a0, b0, gamma, nCores)
}

cov2_2012LC_A <- function(X) {
    .Call('_SHT_cov2_2012LC_A', PACKAGE = 'SHT', X)
}

cov2_2012LC_C <- function(X, Y) {
    .Call('_SHT_cov2_2012LC_C', PACKAGE = 'SHT', X, Y)
}

cov2_2012LC_A_biased <- function(X) {
    .Call('_SHT_cov2_2012LC_A_biased', PACKAGE = 'SHT', X)
}

cov2_2012LC_C_biased <- function(X, Y) {
    .Call('_SHT_cov2_2012LC_C_biased', PACKAGE = 'SHT', X, Y)
}

cpp_cov2_mxPBF_single <- function(X, Y, a0, b0, gamma) {
    .Call('_SHT_cpp_cov2_mxPBF_single', PACKAGE = 'SHT', X, Y, a0, b0, gamma)
}

cpp_cov2_mxPBF_multiple <- function(X, Y, a0, b0, gamma, nCores) {
    .Call('_SHT_cpp_cov2_mxPBF_multiple', PACKAGE = 'SHT', X, Y, a0, b0, gamma, nCores)
}

energy_distance <- function(Xi, Xj, alpha, nCores) {
    .Call('_SHT_energy_distance', PACKAGE = 'SHT', Xi, Xj, alpha, nCores)
}

cpp_eqdist_2014BG_statistic <- function(DX, DY, DXY) {
    .Call('_SHT_cpp_eqdist_2014BG_statistic', PACKAGE = 'SHT', DX, DY, DXY)
}

cpp_eqdist_2014BG_computeS <- function(D) {
    .Call('_SHT_cpp_eqdist_2014BG_computeS', PACKAGE = 'SHT', D)
}

adjust_clime <- function(omega) {
    .Call('_SHT_adjust_clime', PACKAGE = 'SHT', omega)
}

cpp_mean2_mxPBF_single <- function(X, Y, a0, b0, gamma) {
    .Call('_SHT_cpp_mean2_mxPBF_single', PACKAGE = 'SHT', X, Y, a0, b0, gamma)
}

cpp_mean2_mxPBF_multiple <- function(X, Y, a0, b0, gamma, nCores) {
    .Call('_SHT_cpp_mean2_mxPBF_multiple', PACKAGE = 'SHT', X, Y, a0, b0, gamma, nCores)
}

norm_1987JB_single <- function(x) {
    .Call('_SHT_norm_1987JB_single', PACKAGE = 'SHT', x)
}

norm_1987JB_mcarlo <- function(x, nreps) {
    .Call('_SHT_norm_1987JB_mcarlo', PACKAGE = 'SHT', x, nreps)
}

norm_2008RJB_single <- function(x, C1, C2) {
    .Call('_SHT_norm_2008RJB_single', PACKAGE = 'SHT', x, C1, C2)
}

norm_2008RJB_mcarlo <- function(x, nreps, C1, C2) {
    .Call('_SHT_norm_2008RJB_mcarlo', PACKAGE = 'SHT', x, nreps, C1, C2)
}

norm_1996AJB_single <- function(x) {
    .Call('_SHT_norm_1996AJB_single', PACKAGE = 'SHT', x)
}

norm_1996AJB_mcarlo <- function(x, nreps) {
    .Call('_SHT_norm_1996AJB_mcarlo', PACKAGE = 'SHT', x, nreps)
}

testcpp_lgamma <- function(x) {
    .Call('_SHT_testcpp_lgamma', PACKAGE = 'SHT', x)
}