Nothing
# 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.