R/RcppExports.R

In melt: Multiple Empirical Likelihood Tests

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

compute_EL <- function(method, par0, x, maxit_l, tol_l, th, w) {
    .Call(`_melt_compute_EL`, method, par0, x, maxit_l, tol_l, th, w)
}

compute_ELD <- function(method, par0, x, maxit_l, tol_l, th, nthreads, wt) {
    .Call(`_melt_compute_ELD`, method, par0, x, maxit_l, tol_l, th, nthreads, wt)
}

compute_bootstrap_calibration <- function(alpha, statistic, B, seed, nthreads, method, x, par, est, maxit_l, tol_l, th, w) {
    .Call(`_melt_compute_bootstrap_calibration`, alpha, statistic, B, seed, nthreads, method, x, par, est, maxit_l, tol_l, th, w)
}

compute_confidence_intervals <- function(method, par0, x, cutoff, idx, maxit, maxit_l, tol, tol_l, step, th, nthreads, w) {
    .Call(`_melt_compute_confidence_intervals`, method, par0, x, cutoff, idx, maxit, maxit_l, tol, tol_l, step, th, nthreads, w)
}

compute_confidence_intervals_EMLT <- function(method, x, par0, lhs, est, cv, maxit, maxit_l, tol, tol_l, step, th, nthreads, w) {
    .Call(`_melt_compute_confidence_intervals_EMLT`, method, x, par0, lhs, est, cv, maxit, maxit_l, tol, tol_l, step, th, nthreads, w)
}

compute_confidence_region <- function(method, par0, x, npar, cv, idx, circ, maxit, maxit_l, tol, tol_l, step, th, nthreads, w) {
    .Call(`_melt_compute_confidence_region`, method, par0, x, npar, cv, idx, circ, maxit, maxit_l, tol, tol_l, step, th, nthreads, w)
}

compute_generic_EL <- function(g, maxit_l, tol_l, th, w) {
    .Call(`_melt_compute_generic_EL`, g, maxit_l, tol_l, th, w)
}

pairwise <- function(x, c, control = 0L, k = 1L, level = 0.05, interval = TRUE, method = "AMC", B = 1e+04L, nthreads = 1L, th = 50, maxit = 1e+04L, abstol = 1e-08) {
    .Call(`_melt_pairwise`, x, c, control, k, level, interval, method, B, nthreads, th, maxit, abstol)
}

test_GLM <- function(method, x, par0, intercept, maxit, maxit_l, tol, tol_l, step, th, nthreads, w) {
    .Call(`_melt_test_GLM`, method, x, par0, intercept, maxit, maxit_l, tol, tol_l, step, th, nthreads, w)
}

test_LM <- function(x, par0, intercept, maxit, maxit_l, tol, tol_l, step, th, nthreads, w) {
    .Call(`_melt_test_LM`, x, par0, intercept, maxit, maxit_l, tol, tol_l, step, th, nthreads, w)
}

test_QGLM <- function(method, x, par0, intercept, maxit, maxit_l, tol, tol_l, step, th, nthreads, w) {
    .Call(`_melt_test_QGLM`, method, x, par0, intercept, maxit, maxit_l, tol, tol_l, step, th, nthreads, w)
}

test_hypothesis <- function(method, par0, x, lhs, rhs, maxit, maxit_l, tol, tol_l, step, th, w) {
    .Call(`_melt_test_hypothesis`, method, par0, x, lhs, rhs, maxit, maxit_l, tol, tol_l, step, th, w)
}

test_multiple_hypotheses <- function(alpha, q, m, M, method, est, x, rhs, lhs, maxit, maxit_l, tol, tol_l, step, th, w) {
    .Call(`_melt_test_multiple_hypotheses`, alpha, q, m, M, method, est, x, rhs, lhs, maxit, maxit_l, tol, tol_l, step, th, w)
}

get_max_threads <- function() {
    .Call(`_melt_get_max_threads`)
}

get_rank <- function(x) {
    .Call(`_melt_get_rank`, x)
}