Nothing
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
kernelC <- function(x, y, theta, tau) {
.Call('_BAREB_kernelC', PACKAGE = 'BAREB', x, y, theta, tau)
}
updateC <- function(Z, theta, tau) {
.Call('_BAREB_updateC', PACKAGE = 'BAREB', Z, theta, tau)
}
updateBeta <- function(X, Y, Z, delta, Beta, Gamma, E, R, S, Ds, mustar, mu, sigma, c, C, step, runif, n, m, T0, p, q, D, theta, tau) {
.Call('_BAREB_updateBeta', PACKAGE = 'BAREB', X, Y, Z, delta, Beta, Gamma, E, R, S, Ds, mustar, mu, sigma, c, C, step, runif, n, m, T0, p, q, D, theta, tau)
}
updateGamma <- function(X, Y, Z, delta, Beta, Gamma, E, R, S, Ds, mu, mustar, sigma, c, step, runif, n, m, T0, p, q, D, theta, tau) {
.Call('_BAREB_updateGamma', PACKAGE = 'BAREB', X, Y, Z, delta, Beta, Gamma, E, R, S, Ds, mu, mustar, sigma, c, step, runif, n, m, T0, p, q, D, theta, tau)
}
updateE <- function(Beta, Gamma, w, X, Y, Z, delta, E, R, S, Ds, mu, mustar, sigma, c, n, m, T0, p, q, D) {
.Call('_BAREB_updateE', PACKAGE = 'BAREB', Beta, Gamma, w, X, Y, Z, delta, E, R, S, Ds, mu, mustar, sigma, c, n, m, T0, p, q, D)
}
updatemu <- function(R, Z, X, Gamma, K, Beta, E, m, n, p, q) {
.Call('_BAREB_updatemu', PACKAGE = 'BAREB', R, Z, X, Gamma, K, Beta, E, m, n, p, q)
}
RJi <- function(w, K, Gamma, Beta, X, Y, Z, R, delta, mu, mu_star, c, sigma_square, C, theta, tau, m, n, q, T0, hyper_delta) {
.Call('_BAREB_RJi', PACKAGE = 'BAREB', w, K, Gamma, Beta, X, Y, Z, R, delta, mu, mu_star, c, sigma_square, C, theta, tau, m, n, q, T0, hyper_delta)
}
updateR <- function(w, Gamma, Beta, Y, Z, delta, mu, mu_star, c, S, sigma_square, K, E, X, m, n, q, p, T0) {
.Call('_BAREB_updateR', PACKAGE = 'BAREB', w, Gamma, Beta, Y, Z, delta, mu, mu_star, c, S, sigma_square, K, E, X, m, n, q, p, T0)
}
updatemustar <- function(mu, c, n, T0, D) {
.Call('_BAREB_updatemustar', PACKAGE = 'BAREB', mu, c, n, T0, D)
}
updateZstar <- function(mu_star, delta, n, T0) {
.Call('_BAREB_updateZstar', PACKAGE = 'BAREB', mu_star, delta, n, T0)
}
updatec <- function(Zstar, mu, D, sigmac, sigma_square, n, T0) {
.Call('_BAREB_updatec', PACKAGE = 'BAREB', Zstar, mu, D, sigmac, sigma_square, n, T0)
}
RJi_empty <- function(w, K, Gamma, R, C, theta, tau, m, q, hyper_delta) {
.Call('_BAREB_RJi_empty', PACKAGE = 'BAREB', w, K, Gamma, R, C, theta, tau, m, q, hyper_delta)
}
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.