R/RcppExports.R

In trajeR: Group Based Modeling Trajectory

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

gkBETA_cpp <- function(beta, phi, i, k, nbeta, nphi, A, Y, TCOV, delta, nw) {
    .Call(`_trajeR_gkBETA_cpp`, beta, phi, i, k, nbeta, nphi, A, Y, TCOV, delta, nw)
}

difLthetakBETA_cpp <- function(theta, beta, phi, delta, k, ng, nx, nbeta, nphi, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLthetakBETA_cpp`, theta, beta, phi, delta, k, ng, nx, nbeta, nphi, n, A, Y, X, TCOV, nw)
}

difLbetakBETA_cpp <- function(theta, beta, phi, delta, k, ng, nx, nbeta, nphi, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLbetakBETA_cpp`, theta, beta, phi, delta, k, ng, nx, nbeta, nphi, n, A, Y, X, TCOV, nw)
}

difLdeltakBETA_cpp <- function(theta, beta, phi, delta, k, ng, nx, nbeta, nphi, n, A, Y, X, initTCOV, nw) {
    .Call(`_trajeR_difLdeltakBETA_cpp`, theta, beta, phi, delta, k, ng, nx, nbeta, nphi, n, A, Y, X, initTCOV, nw)
}

difLphikBETA_cpp <- function(theta, beta, phi, delta, k, ng, nx, nbeta, nphi, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLphikBETA_cpp`, theta, beta, phi, delta, k, ng, nx, nbeta, nphi, n, A, Y, X, TCOV, nw)
}

difLBETA_cpp <- function(param, ng, nx, nbeta, nphi, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLBETA_cpp`, param, ng, nx, nbeta, nphi, n, A, Y, X, TCOV, nw)
}

LikelihoodBETA_cpp <- function(param, ng, nx, nbeta, nphi, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_LikelihoodBETA_cpp`, param, ng, nx, nbeta, nphi, n, A, Y, X, TCOV, nw)
}

gkCNORM_cpp <- function(beta, sigma, i, k, nbeta, A, Y, ymin, ymax, TCOV, delta, nw) {
    .Call(`_trajeR_gkCNORM_cpp`, beta, sigma, i, k, nbeta, A, Y, ymin, ymax, TCOV, delta, nw)
}

gkalpha_cpp <- function(beta, alpha, i, k, nbeta, A, Y, ymin, ymax, TCOV, delta, nw) {
    .Call(`_trajeR_gkalpha_cpp`, beta, alpha, i, k, nbeta, A, Y, ymin, ymax, TCOV, delta, nw)
}

difLthetakalpha_cpp <- function(theta, beta, alpha, delta, k, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw) {
    .Call(`_trajeR_difLthetakalpha_cpp`, theta, beta, alpha, delta, k, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw)
}

difLbetakalpha_cpp <- function(theta, beta, alpha, delta, k, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw) {
    .Call(`_trajeR_difLbetakalpha_cpp`, theta, beta, alpha, delta, k, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw)
}

difLdeltakalpha_cpp <- function(theta, beta, alpha, delta, k, ng, nx, nbeta, n, A, Y, X, ymin, ymax, initTCOV, nw) {
    .Call(`_trajeR_difLdeltakalpha_cpp`, theta, beta, alpha, delta, k, ng, nx, nbeta, n, A, Y, X, ymin, ymax, initTCOV, nw)
}

difLsigmakalpha_cpp <- function(theta, beta, alpha, delta, k, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw) {
    .Call(`_trajeR_difLsigmakalpha_cpp`, theta, beta, alpha, delta, k, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw)
}

difLsigmaalphaunique_cpp <- function(theta, beta, alpha, delta, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw) {
    .Call(`_trajeR_difLsigmaalphaunique_cpp`, theta, beta, alpha, delta, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw)
}

difLalpha_cpp <- function(param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, ssigma) {
    .Call(`_trajeR_difLalpha_cpp`, param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, ssigma)
}

difLalphaunique_cpp <- function(param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, ssigma) {
    .Call(`_trajeR_difLalphaunique_cpp`, param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, ssigma)
}

Likelihoodalpha_cpp <- function(param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, ssigma) {
    .Call(`_trajeR_Likelihoodalpha_cpp`, param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, ssigma)
}

likelihoodCNORM_cpp <- function(param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw) {
    .Call(`_trajeR_likelihoodCNORM_cpp`, param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw)
}

likelihoodEM_cpp <- function(n, ng, nbeta, beta, sigma, pi, A, Y, ymin, ymax, TCOV, delta, nw) {
    .Call(`_trajeR_likelihoodEM_cpp`, n, ng, nbeta, beta, sigma, pi, A, Y, ymin, ymax, TCOV, delta, nw)
}

ftauxCNORM_cpp <- function(pi, beta, sigma, ng, nbeta, n, A, Y, ymin, ymax, TCOV, delta, nw, nx, X) {
    .Call(`_trajeR_ftauxCNORM_cpp`, pi, beta, sigma, ng, nbeta, n, A, Y, ymin, ymax, TCOV, delta, nw, nx, X)
}

EM_cpp <- function(param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, itermax, EMIRLS, refgr) {
    .Call(`_trajeR_EM_cpp`, param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, itermax, EMIRLS, refgr)
}

EMSigmaunique_cpp <- function(param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, itermax, EMIRLS, refgr) {
    .Call(`_trajeR_EMSigmaunique_cpp`, param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, itermax, EMIRLS, refgr)
}

EMCensored_cpp <- function(param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, itermax, EMIRLS, refgr) {
    .Call(`_trajeR_EMCensored_cpp`, param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, itermax, EMIRLS, refgr)
}

EMCensoredSigmaunique_cpp <- function(param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, itermax, EMIRLS, refgr) {
    .Call(`_trajeR_EMCensoredSigmaunique_cpp`, param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, itermax, EMIRLS, refgr)
}

IEM_cpp <- function(param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, refgr) {
    .Call(`_trajeR_IEM_cpp`, param, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw, refgr)
}

piikIntern_cpp <- function(theta, i, k, ng, X) {
    .Call(`_trajeR_piikIntern_cpp`, theta, i, k, ng, X)
}

muikt_cpp <- function(beta, nbeta, i, period, A, TCOV, delta, nw, k) {
    .Call(`_trajeR_muikt_cpp`, beta, nbeta, i, period, A, TCOV, delta, nw, k)
}

ftheta_cpp <- function(theta, taux, X, n, ng, period) {
    .Call(`_trajeR_ftheta_cpp`, theta, taux, X, n, ng, period)
}

difftheta_cpp <- function(theta, taux, X, n, ng, period) {
    .Call(`_trajeR_difftheta_cpp`, theta, taux, X, n, ng, period)
}

thethaIRLS_cpp <- function(thetaIRLS, n, ng, X, taux, refgr) {
    .Call(`_trajeR_thethaIRLS_cpp`, thetaIRLS, n, ng, X, taux, refgr)
}

findtheta_cpp <- function(theta, taux, X, n, ng, nx, period, EMIRLS, refgr) {
    .Call(`_trajeR_findtheta_cpp`, theta, taux, X, n, ng, nx, period, EMIRLS, refgr)
}

IEMLOGIT_cpp <- function(param, ng, nx, nbeta, n, A, Y, X, TCOV, nw, refgr) {
    .Call(`_trajeR_IEMLOGIT_cpp`, param, ng, nx, nbeta, n, A, Y, X, TCOV, nw, refgr)
}

gkLOGIT_cpp <- function(beta, i, k, nbeta, A, Y, TCOV, delta, nw) {
    .Call(`_trajeR_gkLOGIT_cpp`, beta, i, k, nbeta, A, Y, TCOV, delta, nw)
}

difLthetakLOGIT_cpp <- function(theta, beta, delta, k, ng, nx, n, nbeta, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLthetakLOGIT_cpp`, theta, beta, delta, k, ng, nx, n, nbeta, A, Y, X, TCOV, nw)
}

difLbetakLOGIT_cpp <- function(theta, beta, delta, k, ng, nx, n, nbeta, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLbetakLOGIT_cpp`, theta, beta, delta, k, ng, nx, n, nbeta, A, Y, X, TCOV, nw)
}

difLdeltakLOGIT_cpp <- function(theta, beta, delta, k, ng, nx, n, nbeta, A, Y, X, initTCOV, nw) {
    .Call(`_trajeR_difLdeltakLOGIT_cpp`, theta, beta, delta, k, ng, nx, n, nbeta, A, Y, X, initTCOV, nw)
}

difLLOGIT_cpp <- function(param, ng, nx, n, nbeta, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLLOGIT_cpp`, param, ng, nx, n, nbeta, A, Y, X, TCOV, nw)
}

likelihoodLOGIT_cpp <- function(param, ng, nx, n, nbeta, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_likelihoodLOGIT_cpp`, param, ng, nx, n, nbeta, A, Y, X, TCOV, nw)
}

ftauxLOGIT_cpp <- function(pi, beta, ng, nbeta, n, A, Y, TCOV, delta, nw, nx, X) {
    .Call(`_trajeR_ftauxLOGIT_cpp`, pi, beta, ng, nbeta, n, A, Y, TCOV, delta, nw, nx, X)
}

QbetakLOGIT_cpp <- function(betak, taux, k, n, ng, nbeta, A, Y, TCOV, deltainit, nw) {
    .Call(`_trajeR_QbetakLOGIT_cpp`, betak, taux, k, n, ng, nbeta, A, Y, TCOV, deltainit, nw)
}

QdeltakLOGIT_cpp <- function(deltak, taux, k, n, ng, nbeta, A, Y, TCOV, beta, nw) {
    .Call(`_trajeR_QdeltakLOGIT_cpp`, deltak, taux, k, n, ng, nbeta, A, Y, TCOV, beta, nw)
}

difQbetakLOGIT_cpp <- function(betak, taux, k, n, ng, nbeta, A, Y, TCOV, deltainit, nw) {
    .Call(`_trajeR_difQbetakLOGIT_cpp`, betak, taux, k, n, ng, nbeta, A, Y, TCOV, deltainit, nw)
}

difQdeltakLOGIT_cpp <- function(deltak, taux, k, n, ng, nbeta, A, Y, TCOV, beta, nw) {
    .Call(`_trajeR_difQdeltakLOGIT_cpp`, deltak, taux, k, n, ng, nbeta, A, Y, TCOV, beta, nw)
}

QbetaLOGIT_cpp <- function(beta, taux, n, ng, nbeta, A, Y, TCOV, delta, nw) {
    .Call(`_trajeR_QbetaLOGIT_cpp`, beta, taux, n, ng, nbeta, A, Y, TCOV, delta, nw)
}

difQbetaLOGIT_cpp <- function(beta, taux, n, ng, nbeta, A, Y, TCOV, delta, nw) {
    .Call(`_trajeR_difQbetaLOGIT_cpp`, beta, taux, n, ng, nbeta, A, Y, TCOV, delta, nw)
}

likelihoodEMLOGIT_cpp <- function(n, ng, nbeta, beta, pi, A, Y, TCOV, delta, nw) {
    .Call(`_trajeR_likelihoodEMLOGIT_cpp`, n, ng, nbeta, beta, pi, A, Y, TCOV, delta, nw)
}

EMLOGIT_cpp <- function(param, ng, nx, n, nbeta, A, Y, X, TCOV, nw, itermax, EMIRLS, refgr) {
    .Call(`_trajeR_EMLOGIT_cpp`, param, ng, nx, n, nbeta, A, Y, X, TCOV, nw, itermax, EMIRLS, refgr)
}

EMLOGITIRLS_cpp <- function(param, ng, nx, n, nbeta, A, Y, X, TCOVinit, nw, itermax, EMIRLS, refgr) {
    .Call(`_trajeR_EMLOGITIRLS_cpp`, param, ng, nx, n, nbeta, A, Y, X, TCOVinit, nw, itermax, EMIRLS, refgr)
}

gkPois_cpp <- function(beta, i, k, nbeta, A, Y, TCOV, delta, nw) {
    .Call(`_trajeR_gkPois_cpp`, beta, i, k, nbeta, A, Y, TCOV, delta, nw)
}

difLthetakPois_cpp <- function(theta, beta, delta, k, ng, nx, nbeta, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLthetakPois_cpp`, theta, beta, delta, k, ng, nx, nbeta, n, A, Y, X, TCOV, nw)
}

difLbetakPois_cpp <- function(theta, beta, delta, k, ng, nx, nbeta, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLbetakPois_cpp`, theta, beta, delta, k, ng, nx, nbeta, n, A, Y, X, TCOV, nw)
}

difLPois_cpp <- function(param, ng, nx, nbeta, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLPois_cpp`, param, ng, nx, nbeta, n, A, Y, X, TCOV, nw)
}

likelihoodPois_cpp <- function(param, ng, nx, nbeta, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_likelihoodPois_cpp`, param, ng, nx, nbeta, n, A, Y, X, TCOV, nw)
}

nuikt_cpp <- function(nu, nnu, i, period, A, k) {
    .Call(`_trajeR_nuikt_cpp`, nu, nnu, i, period, A, k)
}

gkZIP_cpp <- function(beta, nu, i, k, nbeta, nnu, A, Y, TCOV, delta, nw) {
    .Call(`_trajeR_gkZIP_cpp`, beta, nu, i, k, nbeta, nnu, A, Y, TCOV, delta, nw)
}

difLthetakZIP_cpp <- function(theta, beta, nu, delta, k, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLthetakZIP_cpp`, theta, beta, nu, delta, k, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw)
}

difLbetakZIP_cpp <- function(theta, beta, nu, delta, k, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLbetakZIP_cpp`, theta, beta, nu, delta, k, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw)
}

difLnukZIP_cpp <- function(theta, beta, nu, delta, k, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLnukZIP_cpp`, theta, beta, nu, delta, k, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw)
}

difLdeltakZIP_cpp <- function(theta, beta, nu, delta, k, ng, nx, nbeta, nnu, n, A, Y, X, TCOVinit, nw) {
    .Call(`_trajeR_difLdeltakZIP_cpp`, theta, beta, nu, delta, k, ng, nx, nbeta, nnu, n, A, Y, X, TCOVinit, nw)
}

difLZIP_cpp <- function(param, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLZIP_cpp`, param, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw)
}

likelihoodZIP_cpp <- function(param, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_likelihoodZIP_cpp`, param, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw)
}

likelihoodEMZIP_cpp <- function(n, ng, nbeta, nnu, beta, nu, pi, A, Y, TCOV, delta, nw) {
    .Call(`_trajeR_likelihoodEMZIP_cpp`, n, ng, nbeta, nnu, beta, nu, pi, A, Y, TCOV, delta, nw)
}

ftauxZIP_cpp <- function(pi, beta, nu, ng, nbeta, nnu, n, A, Y, TCOV, delta, nw, nx, X) {
    .Call(`_trajeR_ftauxZIP_cpp`, pi, beta, nu, ng, nbeta, nnu, n, A, Y, TCOV, delta, nw, nx, X)
}

fzkSikt_cpp <- function(pi, beta, nu, zk, k, i, t, ng, nbeta, nnu, n, A, Y, TCOV, delta, nw, ndeltacum, period, nbetacum, nnucum) {
    .Call(`_trajeR_fzkSikt_cpp`, pi, beta, nu, zk, k, i, t, ng, nbeta, nnu, n, A, Y, TCOV, delta, nw, ndeltacum, period, nbetacum, nnucum)
}

fSikt_cpp <- function(pi, beta, nu, k, i, t, nbeta, nnu, n, A, Y, TCOV, delta, nw, ndeltacum, period, nbetacum, nnucum) {
    .Call(`_trajeR_fSikt_cpp`, pi, beta, nu, k, i, t, nbeta, nnu, n, A, Y, TCOV, delta, nw, ndeltacum, period, nbetacum, nnucum)
}

QbetakZIP_cpp <- function(beta, zk, Sikt, k, nbeta, nnu, n, A, Y, TCOV, delta, nw, ndeltacum) {
    .Call(`_trajeR_QbetakZIP_cpp`, beta, zk, Sikt, k, nbeta, nnu, n, A, Y, TCOV, delta, nw, ndeltacum)
}

QnukZIP_cpp <- function(nu, zk, Sikt, k, nbeta, nnu, n, A, Y) {
    .Call(`_trajeR_QnukZIP_cpp`, nu, zk, Sikt, k, nbeta, nnu, n, A, Y)
}

QdeltakZIP_cpp <- function(delta, zk, Sikt, k, nbeta, nnu, n, A, Y, TCOV, beta, nw) {
    .Call(`_trajeR_QdeltakZIP_cpp`, delta, zk, Sikt, k, nbeta, nnu, n, A, Y, TCOV, beta, nw)
}

QbetadeltakZIP_cpp <- function(betadelta, zk, Sikt, k, nbeta, nnu, n, A, Y, TCOV, nw) {
    .Call(`_trajeR_QbetadeltakZIP_cpp`, betadelta, zk, Sikt, k, nbeta, nnu, n, A, Y, TCOV, nw)
}

difQbetakZIP_cpp <- function(beta, zk, Sikt, k, nbeta, nnu, n, A, Y, TCOV, delta, nw, ndeltacum) {
    .Call(`_trajeR_difQbetakZIP_cpp`, beta, zk, Sikt, k, nbeta, nnu, n, A, Y, TCOV, delta, nw, ndeltacum)
}

difQnukZIP_cpp <- function(nu, zk, Sikt, k, nbeta, nnu, n, A, Y) {
    .Call(`_trajeR_difQnukZIP_cpp`, nu, zk, Sikt, k, nbeta, nnu, n, A, Y)
}

difQdeltakZIP_cpp <- function(delta, zk, Sikt, k, nbeta, nnu, n, A, Y, TCOV, beta, nw) {
    .Call(`_trajeR_difQdeltakZIP_cpp`, delta, zk, Sikt, k, nbeta, nnu, n, A, Y, TCOV, beta, nw)
}

difQbetadeltakZIP_cpp <- function(betadelta, zk, Sikt, k, nbeta, nnu, n, A, Y, TCOV, nw) {
    .Call(`_trajeR_difQbetadeltakZIP_cpp`, betadelta, zk, Sikt, k, nbeta, nnu, n, A, Y, TCOV, nw)
}

EMZIP_cpp <- function(param, ng, nx, n, nbeta, nnu, A, Y, X, TCOV, nw, itermax, EMIRLS, refgr) {
    .Call(`_trajeR_EMZIP_cpp`, param, ng, nx, n, nbeta, nnu, A, Y, X, TCOV, nw, itermax, EMIRLS, refgr)
}

EMZIPIRLS_cpp <- function(param, ng, nx, n, nbeta, nnu, A, Y, X, TCOVinit, nw, itermax, EMIRLS, refgr) {
    .Call(`_trajeR_EMZIPIRLS_cpp`, param, ng, nx, n, nbeta, nnu, A, Y, X, TCOVinit, nw, itermax, EMIRLS, refgr)
}

IEMZIP_cpp <- function(param, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw, refgr) {
    .Call(`_trajeR_IEMZIP_cpp`, param, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw, refgr)
}

convtolist_cpp <- function(v, nelt) {
    .Call(`_trajeR_convtolist_cpp`, v, nelt)
}

mPsi_cpp <- function(psi, lng) {
    .Call(`_trajeR_mPsi_cpp`, psi, lng)
}

extmat_cpp <- function(m, i, j, lng) {
    .Call(`_trajeR_extmat_cpp`, m, i, j, lng)
}

mukMult_cpp <- function(ltheta, mPsi, i, vk, lng, lX) {
    .Call(`_trajeR_mukMult_cpp`, ltheta, mPsi, i, vk, lng, lX)
}

piikMult_cpp <- function(ltheta, mPsi, i, vk, lng, lX, mk) {
    .Call(`_trajeR_piikMult_cpp`, ltheta, mPsi, i, vk, lng, lX, mk)
}

densityChoice_cpp <- function(beta, alphainit, i, k, nbeta, A, Y, ymin, ymax, TCOV, delta, nw, nuinit, nnuinit, model) {
    .Call(`_trajeR_densityChoice_cpp`, beta, alphainit, i, k, nbeta, A, Y, ymin, ymax, TCOV, delta, nw, nuinit, nnuinit, model)
}

likelihoodMult_cpp <- function(vparam, lng, lnx, lnbeta, ln, lA, lY, lX, lymin, lymax, lTCOVinit, lnw, vp, mk, lnnu, model, ssigma) {
    .Call(`_trajeR_likelihoodMult_cpp`, vparam, lng, lnx, lnbeta, ln, lA, lY, lX, lymin, lymax, lTCOVinit, lnw, vp, mk, lnnu, model, ssigma)
}

difLbetavkiLOGIT_cpp <- function(beta, delta, k, i, ng, nx, n, nbeta, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLbetavkiLOGIT_cpp`, beta, delta, k, i, ng, nx, n, nbeta, A, Y, X, TCOV, nw)
}

difLbetavkiZIP_cpp <- function(beta, nu, delta, k, i, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLbetavkiZIP_cpp`, beta, nu, delta, k, i, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw)
}

difLnuvkiZIP_cpp <- function(beta, nu, delta, k, i, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw) {
    .Call(`_trajeR_difLnuvkiZIP_cpp`, beta, nu, delta, k, i, ng, nx, nbeta, nnu, n, A, Y, X, TCOV, nw)
}

difbetavkialpha_cpp <- function(beta, alpha, delta, k, i, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw) {
    .Call(`_trajeR_difbetavkialpha_cpp`, beta, alpha, delta, k, i, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw)
}

difalphavki_cpp <- function(beta, alpha, delta, k, i, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw) {
    .Call(`_trajeR_difalphavki_cpp`, beta, alpha, delta, k, i, ng, nx, nbeta, n, A, Y, X, ymin, ymax, TCOV, nw)
}

difLalphaMult_cpp <- function(vparam, lng, lnx, lnbeta, ln, lA, lY, lX, lymin, lymax, lTCOVinit, lnw, vp, mk, lnnu, model, ssigma) {
    .Call(`_trajeR_difLalphaMult_cpp`, vparam, lng, lnx, lnbeta, ln, lA, lY, lX, lymin, lymax, lTCOVinit, lnw, vp, mk, lnnu, model, ssigma)
}

piikMultV_cpp <- function(vthetapsi, i, vk, lng, lX, mk) {
    .Call(`_trajeR_piikMultV_cpp`, vthetapsi, i, vk, lng, lX, mk)
}

ThetaPsiPiikMult_cpp <- function(vthetapsi, lng, lnx, lnbeta, ln, lA, lY, lX, lymin, lymax, lTCOVinit, lnw, taux, mk) {
    .Call(`_trajeR_ThetaPsiPiikMult_cpp`, vthetapsi, lng, lnx, lnbeta, ln, lA, lY, lX, lymin, lymax, lTCOVinit, lnw, taux, mk)
}

difThetaPsiPiikMult_cpp <- function(vthetapsi, lng, lnx, lnbeta, ln, lA, lY, lX, lymin, lymax, lTCOVinit, lnw, taux, mk) {
    .Call(`_trajeR_difThetaPsiPiikMult_cpp`, vthetapsi, lng, lnx, lnbeta, ln, lA, lY, lX, lymin, lymax, lTCOVinit, lnw, taux, mk)
}

EMdensityChoice_cpp <- function(beta, sigmainit, i, k, nbeta, A, Y, ymin, ymax, TCOV, delta, nw, nuinit, nnuinit, model) {
    .Call(`_trajeR_EMdensityChoice_cpp`, beta, sigmainit, i, k, nbeta, A, Y, ymin, ymax, TCOV, delta, nw, nuinit, nnuinit, model)
}

ftauxPiikMult_cpp <- function(lthetainit, mPsi, lbeta, lsigmainit, lng, lnbeta, ln, lA, lY, lymin, lymax, lTCOVinit, ldelta, lnw, lnx, lX, mk, vp, nuinit, nnuinit, model) {
    .Call(`_trajeR_ftauxPiikMult_cpp`, lthetainit, mPsi, lbeta, lsigmainit, lng, lnbeta, ln, lA, lY, lymin, lymax, lTCOVinit, ldelta, lnw, lnx, lX, mk, vp, nuinit, nnuinit, model)
}

likelihoodMultEM_cpp <- function(lthetainit, mPsi, lbeta, lsigmainit, lng, lnx, lnbeta, ln, lA, lY, lX, lymin, lymax, lTCOVinit, ldelta, lnw, mk, mprob, vp, nuinit, nnuinit, model) {
    .Call(`_trajeR_likelihoodMultEM_cpp`, lthetainit, mPsi, lbeta, lsigmainit, lng, lnx, lnbeta, ln, lA, lY, lX, lymin, lymax, lTCOVinit, ldelta, lnw, mk, mprob, vp, nuinit, nnuinit, model)
}

EMCNORMparam <- function(beta, nw, ng, n, period, j, nbeta, Y, lA, taux, nbetacum, lTCOV, ldelta) {
    .Call(`_trajeR_EMCNORMparam`, beta, nw, ng, n, period, j, nbeta, Y, lA, taux, nbetacum, lTCOV, ldelta)
}

EMLOGITparam <- function(beta, nw, ng, n, period, j, nbeta, Y, lA, taux, nbetacum, lTCOV, ldelta) {
    .Call(`_trajeR_EMLOGITparam`, beta, nw, ng, n, period, j, nbeta, Y, lA, taux, nbetacum, lTCOV, ldelta)
}

EMZIPparam <- function(beta, nu, nw, ng, n, period, j, nbeta, nnu, Y, lA, taux, nbetacum, nnucum, ndeltacum, lTCOVinit, ldeltainit) {
    .Call(`_trajeR_EMZIPparam`, beta, nu, nw, ng, n, period, j, nbeta, nnu, Y, lA, taux, nbetacum, nnucum, ndeltacum, lTCOVinit, ldeltainit)
}

EMMult_cpp <- function(lparam, lng, lnx, lnbeta, lnnu, ln, lA, lY, lX, lymin, lymax, lTCOVinit, lnw, mk, vp, model, itermax, EMIRLS) {
    .Call(`_trajeR_EMMult_cpp`, lparam, lng, lnx, lnbeta, lnnu, ln, lA, lY, lX, lymin, lymax, lTCOVinit, lnw, mk, vp, model, itermax, EMIRLS)
}

# Register entry points for exported C++ functions
methods::setLoadAction(function(ns) {
    .Call(`_trajeR_RcppExport_registerCCallable`)
})