R/RcppExports.R

In BAREB: A Bayesian Repulsive Biclustering Model for Periodontal Data

# 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)
}