R/RcppExports.R

In hommel: Methods for Closed Testing with Simes Inequality, in Particular Hommel's Method

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

findalpha <- function(p, m, simesfactor, simes) {
    .Call(`_hommel_findalpha`, p, m, simesfactor, simes)
}

findsimesfactor <- function(simes, m) {
    .Call(`_hommel_findsimesfactor`, simes, m)
}

adjustedElementary <- function(p, alpha, m, simesfactor) {
    .Call(`_hommel_adjustedElementary`, p, alpha, m, simesfactor)
}

adjustedIntersection <- function(pI, alpha, m, simesfactor) {
    .Call(`_hommel_adjustedIntersection`, pI, alpha, m, simesfactor)
}

findHalpha <- function(jumpalpha, alpha, m) {
    .Call(`_hommel_findHalpha`, jumpalpha, alpha, m)
}

findConcentration <- function(p, simesfactor, h, alpha, m) {
    .Call(`_hommel_findConcentration`, p, simesfactor, h, alpha, m)
}

findDiscoveries <- function(idx, allp, simesfactor, h, alpha, k, m) {
    .Call(`_hommel_findDiscoveries`, idx, allp, simesfactor, h, alpha, k, m)
}