R/RcppExports.R

In Hunyong/BZINB: Bivariate Zero-Inflated Negative Binomial Model Estimator

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

em <- function(param2, xvec, yvec, freq, n, se, maxiter, tol, showFlag, zi) {
    .Call('_bzinb_em', PACKAGE = 'bzinb', param2, xvec, yvec, freq, n, se, maxiter, tol, showFlag, zi)
}

emReg <- function(param2, xvec, yvec, ZZ, WW, pZ, pW, n, se, maxiter, tol, showFlag, zi) {
    .Call('_bzinb_emReg', PACKAGE = 'bzinb', param2, xvec, yvec, ZZ, WW, pZ, pW, n, se, maxiter, tol, showFlag, zi)
}

dBvZINB_Expt <- function(x, y, freq, a0, a1, a2, b1, b2, p1, p2, p3, p4, expt, s_i, info, se, zi, infoReg) {
    invisible(.Call('_bzinb_dBvZINB_Expt', PACKAGE = 'bzinb', x, y, freq, a0, a1, a2, b1, b2, p1, p2, p3, p4, expt, s_i, info, se, zi, infoReg))
}

dBvZINB_Expt_vec <- function(xvec, yvec, freq, n, a0, a1, a2, b1, b2, p1, p2, p3, p4, expt, s_i, info, se, zi) {
    invisible(.Call('_bzinb_dBvZINB_Expt_vec', PACKAGE = 'bzinb', xvec, yvec, freq, n, a0, a1, a2, b1, b2, p1, p2, p3, p4, expt, s_i, info, se, zi))
}

logLin <- function(mat, vec, n, p, sign, result) {
    invisible(.Call('_bzinb_logLin', PACKAGE = 'bzinb', mat, vec, n, p, sign, result))
}

dBvZINB_Expt_mat <- function(xvec, yvec, ZZ, WW, n, pZ, pW, alpha, b1, b2, p1, p2, p3, p4, expt, s_i, s_i_abp, info, se, zi, expt_i) {
    invisible(.Call('_bzinb_dBvZINB_Expt_mat', PACKAGE = 'bzinb', xvec, yvec, ZZ, WW, n, pZ, pW, alpha, b1, b2, p1, p2, p3, p4, expt, s_i, s_i_abp, info, se, zi, expt_i))
}

inv_digamma <- function(x, y) {
    .Call('_bzinb_inv_digamma', PACKAGE = 'bzinb', x, y)
}