R/RcppExports.R

In DescTools: Tools for Descriptive Statistics

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

compute_LCM <- function(a, b) {
    .Call(`_DescTools_compute_LCM`, a, b)
}

compute_GCD <- function(a, b) {
    .Call(`_DescTools_compute_GCD`, a, b)
}

divs <- function(x) {
    .Call(`_DescTools_divs`, x)
}

n_pow_sum <- function(x) {
    .Call(`_DescTools_n_pow_sum`, x)
}

conv_DecToBin <- function(n) {
    .Call(`_DescTools_conv_DecToBin`, n)
}

top_n <- function(x, n = 5L) {
    .Call(`_DescTools_top_n`, x, n)
}

bottom_n <- function(x, n = 5L) {
    .Call(`_DescTools_bottom_n`, x, n)
}

top_i <- function(v, n) {
    .Call(`_DescTools_top_i`, v, n)
}

bottom_i <- function(v, n) {
    .Call(`_DescTools_bottom_i`, v, n)
}

fastMode <- function(x, narm = FALSE) {
    .Call(`_DescTools_fastMode`, x, narm)
}

fastModeX <- function(x, narm = FALSE) {
    .Call(`_DescTools_fastModeX`, x, narm)
}

dgompertz_work <- function(x, shape, rate, log) {
    .Call(`_DescTools_dgompertz_work`, x, shape, rate, log)
}

pgompertz_work <- function(q, shape, rate, lower_tail, give_log) {
    .Call(`_DescTools_pgompertz_work`, q, shape, rate, lower_tail, give_log)
}

check.gompertz <- function(shape, rate) {
    .Call(`_DescTools_check_gompertz`, shape, rate)
}