# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
#' @keywords internal
expWArma <- function(iz_, b_, gam, h_) {
.Call(`_joineRML_expWArma`, iz_, b_, gam, h_)
}
#' @keywords internal
gammaUpdate <- function(b_, z_, w_, pb_, haz, v_, h_, K, q, nev, jcount) {
.Call(`_joineRML_gammaUpdate`, b_, z_, w_, pb_, haz, v_, h_, K, q, nev, jcount)
}
#' @keywords internal
hazHat <- function(w_, pb_, nev) {
.Call(`_joineRML_hazHat`, w_, pb_, nev)
}
#' @keywords internal
gammaUpdate_approx <- function(b_, z_, w_, pb_, haz, v_, h_, K, q, nev) {
.Call(`_joineRML_gammaUpdate_approx`, b_, z_, w_, pb_, haz, v_, h_, K, q, nev)
}
#' @keywords internal
lambdaUpdate <- function(b_, imat_, zt_, pb_, v_, gam, gam_vec, q, nev, h_) {
.Call(`_joineRML_lambdaUpdate`, b_, imat_, zt_, pb_, v_, gam, gam_vec, q, nev, h_)
}
#' @keywords internal
mvrnormArma <- function(n, mu, sigma) {
.Call(`_joineRML_mvrnormArma`, n, mu, sigma)
}
#' @keywords internal
bSim <- function(n, Mean_, Sigma_) {
.Call(`_joineRML_bSim`, n, Mean_, Sigma_)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.