R/RcppExports.R

In hsloot/rmo: A package for the Marshall-Olkin distribution

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

multiply_binomial_coefficient <- function(x, n, k) {
    .Call(`_rmo_multiply_binomial_coefficient`, x, n, k)
}

divide_binomial_coefficient <- function(x, n, k) {
    .Call(`_rmo_divide_binomial_coefficient`, x, n, k)
}

uexi2i <- function(uexi) {
    .Call(`_rmo_uexi2i`, uexi)
}

exi2exqm <- function(exi) {
    .Call(`_rmo_exi2exqm`, exi)
}

Rcpp__is_within <- function(i, j) {
    .Call(`_rmo_Rcpp__is_within`, i, j)
}

Rcpp__rmo_esm <- function(n, d, intensities) {
    .Call(`_rmo_Rcpp__rmo_esm`, n, d, intensities)
}

Rcpp__rmo_am <- function(n, d, intensities) {
    .Call(`_rmo_Rcpp__rmo_am`, n, d, intensities)
}

Rcpp__rexmo_mdcm <- function(n, d, ex_intensities) {
    .Call(`_rmo_Rcpp__rexmo_mdcm`, n, d, ex_intensities)
}

Rcpp__rarmextmo_esm <- function(n, d, alpha, beta) {
    .Call(`_rmo_Rcpp__rarmextmo_esm`, n, d, alpha, beta)
}

Rcpp__rextmo_lfm <- function(n, d, rate, rate_killing, rate_drift, rjump_name, rjump_arg_list) {
    .Call(`_rmo_Rcpp__rextmo_lfm`, n, d, rate, rate_killing, rate_drift, rjump_name, rjump_arg_list)
}

#' @keywords internal test
rtest__rmo_esm <- function(n, d, intensities) {
    .Call(`_rmo_rtest__rmo_esm`, n, d, intensities)
}

#' @keywords internal test
rtest__rmo_am <- function(n, d, intensities) {
    .Call(`_rmo_rtest__rmo_am`, n, d, intensities)
}

#' @keywords internal test
rtest__rexmo_mdcm <- function(n, d, ex_intensities) {
    .Call(`_rmo_rtest__rexmo_mdcm`, n, d, ex_intensities)
}

#' @keywords internal test
rtest__rarmextmo_esm <- function(n, d, alpha, beta) {
    .Call(`_rmo_rtest__rarmextmo_esm`, n, d, alpha, beta)
}

#' @keywords internal test
rtest__rextmo_lfm <- function(n, d, rate, rate_killing, rate_drift, rjump_name, rjump_arg_list) {
    .Call(`_rmo_rtest__rextmo_lfm`, n, d, rate, rate_killing, rate_drift, rjump_name, rjump_arg_list)
}

#' @keywords internal test
rtest__deterministic <- function(n, value) {
    .Call(`_rmo_rtest__deterministic`, n, value)
}

#' @keywords internal test
rtest__exponential <- function(n, rate) {
    .Call(`_rmo_rtest__exponential`, n, rate)
}

#' @keywords internal test
rtest__pareto <- function(n, alpha, x0) {
    .Call(`_rmo_rtest__pareto`, n, alpha, x0)
}

#' @keywords internal test
rtest__discrete <- function(n, d, probabilities = NULL) {
    .Call(`_rmo_rtest__discrete`, n, d, probabilities)
}