R/RcppExports.R

In NHMM: Bayesian Non-Homogeneous Markov and Mixture Models for Multiple Time Series

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

Crtnorm <- function(a, muf, sigf, lowf, upf, boolowf, booupf) {
    .Call(`_NHMM_Crtnorm`, a, muf, sigf, lowf, upf, boolowf, booupf)
}

rcpp_3d <- function(jf, kf, lf, Jf, Kf, Lf) {
    .Call(`_NHMM_rcpp_3d`, jf, kf, lf, Jf, Kf, Lf)
}

rcpp_arraytomat <- function(arr3d, c, A, B, C) {
    .Call(`_NHMM_rcpp_arraytomat`, arr3d, c, A, B, C)
}

rcpp_dgamma <- function(a, b, c) {
    .Call(`_NHMM_rcpp_dgamma`, a, b, c)
}

rcpp_dmvnorm <- function(dataf, meanf, Siginvf, detf) {
    .Call(`_NHMM_rcpp_dmvnorm`, dataf, meanf, Siginvf, detf)
}

rcpp_dnorm <- function(a, b, c) {
    .Call(`_NHMM_rcpp_dnorm`, a, b, c)
}

rcpp_dot <- function(c, d) {
    .Call(`_NHMM_rcpp_dot`, c, d)
}

rcpp_dpois <- function(a, b) {
    .Call(`_NHMM_rcpp_dpois`, a, b)
}

rcpp_getNQQ <- function(beta, XX) {
    .Call(`_NHMM_rcpp_getNQQ`, beta, XX)
}

rcpp_getQQ <- function(K, z, dirprior, subseqy) {
    .Call(`_NHMM_rcpp_getQQ`, K, z, dirprior, subseqy)
}

rcpp_getWbin <- function(z, K, J) {
    .Call(`_NHMM_rcpp_getWbin`, z, K, J)
}

rcpp_getdenzity <- function(A, Wbin, psi, gamy, fam, K, mixes, delt, y, ppp, theta1, theta2) {
    .Call(`_NHMM_rcpp_getdenzity`, A, Wbin, psi, gamy, fam, K, mixes, delt, y, ppp, theta1, theta2)
}

rcpp_getdenzityMVN <- function(A, Wbin, psi, K, y, thetainv, detS) {
    .Call(`_NHMM_rcpp_getdenzityMVN`, A, Wbin, psi, K, y, thetainv, detS)
}

rcpp_getppp <- function(gamy, mus) {
    .Call(`_NHMM_rcpp_getppp`, gamy, mus)
}

rcpp_getsumz1 <- function(Kf, Jf, Tf, zf, Sigmainvf, in2f) {
    .Call(`_NHMM_rcpp_getsumz1`, Kf, Jf, Tf, zf, Sigmainvf, in2f)
}

rcpp_getsumz2 <- function(llf, LLf, Kf, Jf, Tf, zf, Sigmainvf, in2f, yf, betaemf, betaem0f) {
    .Call(`_NHMM_rcpp_getsumz2`, llf, LLf, Kf, Jf, Tf, zf, Sigmainvf, in2f, yf, betaemf, betaem0f)
}

rcpp_getvvv <- function(fam, K, mixes, delt, y, ppp, theta1, theta2, z) {
    .Call(`_NHMM_rcpp_getvvv`, fam, K, mixes, delt, y, ppp, theta1, theta2, z)
}

rcpp_getymiss <- function(fam, K, z, ppp, theta1, theta2, mixes, delt, J) {
    .Call(`_NHMM_rcpp_getymiss`, fam, K, z, ppp, theta1, theta2, mixes, delt, J)
}

rcpp_getz <- function(zf, QQf, denzity, subseqy) {
    invisible(.Call(`_NHMM_rcpp_getz`, zf, QQf, denzity, subseqy))
}

rcpp_pnorm <- function(a) {
    .Call(`_NHMM_rcpp_pnorm`, a)
}

rcpp_prod <- function(A) {
    .Call(`_NHMM_rcpp_prod`, A)
}

rcpp_rdirichlet <- function(B) {
    .Call(`_NHMM_rcpp_rdirichlet`, B)
}

rcpp_dmix0 <- function(fam, y, ppp, par1, par2) {
    .Call(`_NHMM_rcpp_dmix0`, fam, y, ppp, par1, par2)
}

rcpp_rmix0 <- function(fam, ppp, par1, par2) {
    .Call(`_NHMM_rcpp_rmix0`, fam, ppp, par1, par2)
}

rcpp_dmix <- function(fam, y, ppp, par1, par2) {
    .Call(`_NHMM_rcpp_dmix`, fam, y, ppp, par1, par2)
}

rcpp_rmix <- function(fam, ppp, par1, par2) {
    .Call(`_NHMM_rcpp_rmix`, fam, ppp, par1, par2)
}

rcpp_resetX <- function(XXf, zbinf) {
    .Call(`_NHMM_rcpp_resetX`, XXf, zbinf)
}

rcpp_rgamma <- function(a, b, c) {
    .Call(`_NHMM_rcpp_rgamma`, a, b, c)
}

rcpp_rmultinom <- function(probs) {
    .Call(`_NHMM_rcpp_rmultinom`, probs)
}

rcpp_rnorm <- function(a, b, c) {
    .Call(`_NHMM_rcpp_rnorm`, a, b, c)
}

rcpp_rpois <- function(a, b) {
    .Call(`_NHMM_rcpp_rpois`, a, b)
}

rcpp_summ <- function(A) {
    .Call(`_NHMM_rcpp_summ`, A)
}

rcpp_sumv <- function(A) {
    .Call(`_NHMM_rcpp_sumv`, A)
}