R/RcppExports.R

Defines functions MCMC Mat_To_Rowvec update_delta update_beta update_beta1 update_alpha2 DM_diff DM

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

DM <- function(Y, alpha) {
    .Call('_BDMMAcorrect_DM', PACKAGE = 'BDMMAcorrect', Y, alpha)
}

DM_diff <- function(Y, alpha1, alpha2, g) {
    .Call('_BDMMAcorrect_DM_diff', PACKAGE = 'BDMMAcorrect', Y, alpha1, alpha2, g)
}

update_alpha2 <- function(alpha, alpha_m, x, y, beta, T, lambda, prop, delta_m) {
    .Call('_BDMMAcorrect_update_alpha2', PACKAGE = 'BDMMAcorrect', alpha, alpha_m, x, y, beta, T, lambda, prop, delta_m)
}

update_beta1 <- function(alpha_m, x, y, beta, T, L, sigma1, eta, delta_m) {
    .Call('_BDMMAcorrect_update_beta1', PACKAGE = 'BDMMAcorrect', alpha_m, x, y, beta, T, L, sigma1, eta, delta_m)
}

update_beta <- function(alpha_m, x, y, beta, T, K, sigma2, delta_m) {
    .Call('_BDMMAcorrect_update_beta', PACKAGE = 'BDMMAcorrect', alpha_m, x, y, beta, T, K, sigma2, delta_m)
}

update_delta <- function(alpha_m, x, y, delta, delta_m, beta, e_delta, batch, N, T, I, sigma3, weight) {
    .Call('_BDMMAcorrect_update_delta', PACKAGE = 'BDMMAcorrect', alpha_m, x, y, delta, delta_m, beta, e_delta, batch, N, T, I, sigma3, weight)
}

Mat_To_Rowvec <- function(m) {
    .Call('_BDMMAcorrect_Mat_To_Rowvec', PACKAGE = 'BDMMAcorrect', m)
}

MCMC <- function(alpha, alpha_m, x, y, beta, delta, delta_m, e_delta, T, N, K, I, lambda, prop, L, sigma1, sigma2, sigma3, iter, eta, a, b, p, batch, weight) {
    .Call('_BDMMAcorrect_MCMC', PACKAGE = 'BDMMAcorrect', alpha, alpha_m, x, y, beta, delta, delta_m, e_delta, T, N, K, I, lambda, prop, L, sigma1, sigma2, sigma3, iter, eta, a, b, p, batch, weight)
}

Try the BDMMAcorrect package in your browser

Any scripts or data that you put into this service are public.

BDMMAcorrect documentation built on Nov. 8, 2020, 5:50 p.m.