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