R/RcppExports.R

In marcalva/diem: Debris-Containing Droplet Identification using EM

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

max_loo <- function(x, sizes, weights, alpha, eps = 1e-4, max_iter = 1e4L, alpha_prior = 0, psc = 1e-10, threads = 1L, debug = FALSE) {
    .Call('_diem_max_loo', PACKAGE = 'diem', x, sizes, weights, alpha, eps, max_iter, alpha_prior, psc, threads, debug)
}

LlkDirMultSparsePar <- function(x, sizes, alpha, ix, ix_len, threads = 1L, display_progress = TRUE, debug = FALSE) {
    .Call('_diem_LlkDirMultSparsePar', PACKAGE = 'diem', x, sizes, alpha, ix, ix_len, threads, display_progress, debug)
}

dirmult_alpha_mom <- function(x, Z, alpha_prior = 0, psc = 1e-10, threads = 1L) {
    .Call('_diem_dirmult_alpha_mom', PACKAGE = 'diem', x, Z, alpha_prior, psc, threads)
}

dirmult_alpha_loo <- function(x, alpha0, Z, eps = 1e-4, max_iter = 1e4L, alpha_prior = 0, psc = 1e-10, threads = 1L) {
    .Call('_diem_dirmult_alpha_loo', PACKAGE = 'diem', x, alpha0, Z, eps, max_iter, alpha_prior, psc, threads)
}

dirmult_alpha_ml <- function(x, Z, eps = 1e-4, max_iter_loo = 1e4L, alpha_prior = 0, psc = 1e-10, threads = 1L) {
    .Call('_diem_dirmult_alpha_ml', PACKAGE = 'diem', x, Z, eps, max_iter_loo, alpha_prior, psc, threads)
}

dirmult_em <- function(X, Alpha, Pi, Z, fixed, alpha_prior = 0, pi_prior = 0, threads = 1L, max_iter = 100L, max_iter_loo = 1e4L, eps = 1e-4, eps_loo = 1e-4, psc = 1e-10, display_progress = TRUE) {
    .Call('_diem_dirmult_em', PACKAGE = 'diem', X, Alpha, Pi, Z, fixed, alpha_prior, pi_prior, threads, max_iter, max_iter_loo, eps, eps_loo, psc, display_progress)
}

LlkMultSparsePar <- function(x, sizes, alpha, ix, ix_len, threads = 1L, display_progress = TRUE, debug = FALSE) {
    .Call('_diem_LlkMultSparsePar', PACKAGE = 'diem', x, sizes, alpha, ix, ix_len, threads, display_progress, debug)
}

mult_alpha_ml <- function(x, Z, prior = 0, threads = 1L, psc = 1e-10) {
    .Call('_diem_mult_alpha_ml', PACKAGE = 'diem', x, Z, prior, threads, psc)
}

mult_z_ml <- function(llk, pi, ix, ix_len, Z, threads = 1L) {
    .Call('_diem_mult_z_ml', PACKAGE = 'diem', llk, pi, ix, ix_len, Z, threads)
}

mult_pi_ml <- function(Z, prior = 0, threads = 1L) {
    .Call('_diem_mult_pi_ml', PACKAGE = 'diem', Z, prior, threads)
}

mult_em <- function(X, Alpha, Pi, Z, fixed, alpha_prior = 0, pi_prior = 0, threads = 1L, max_iter = 100L, eps = 1e-4, psc = 1e-10, display_progress = TRUE) {
    .Call('_diem_mult_em', PACKAGE = 'diem', X, Alpha, Pi, Z, fixed, alpha_prior, pi_prior, threads, max_iter, eps, psc, display_progress)
}

fast_varCPP <- function(x, mu, threads = 1L, display_progress = FALSE) {
    .Call('_diem_fast_varCPP', PACKAGE = 'diem', x, mu, threads, display_progress)
}

fast_wvarCPP <- function(x, mu, weights, threads = 1L, display_progress = FALSE) {
    .Call('_diem_fast_wvarCPP', PACKAGE = 'diem', x, mu, weights, threads, display_progress)
}

fast_wmeanCPP <- function(x, weights, threads = 1L, display_progress = FALSE) {
    .Call('_diem_fast_wmeanCPP', PACKAGE = 'diem', x, weights, threads, display_progress)
}