# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
SearchMode <- function(mat, bg_mean, bg_sd, K, max_iter, tol, p, q, theta1, sigma1) {
.Call('EIA_SearchMode', PACKAGE = 'EIA', mat, bg_mean, bg_sd, K, max_iter, tol, p, q, theta1, sigma1)
}
calLikeIso <- function(mat, p, q, bg_mean, bg_sd, theta1, sigma1) {
.Call('EIA_calLikeIso', PACKAGE = 'EIA', mat, p, q, bg_mean, bg_sd, theta1, sigma1)
}
calPostProb <- function(mat, p, q, bg_mean, bg_sd, theta1, sigma1) {
.Call('EIA_calPostProb', PACKAGE = 'EIA', mat, p, q, bg_mean, bg_sd, theta1, sigma1)
}
run_em <- function(mat, bg_mean, bg_sd, K, max_iter, tol, num_threads, p, q, theta1, sigma1, eta, gamma, lambda = 2.0, nu = 2.0, kappa = 1.0, verbose = FALSE) {
.Call('EIA_run_em', PACKAGE = 'EIA', mat, bg_mean, bg_sd, K, max_iter, tol, num_threads, p, q, theta1, sigma1, eta, gamma, lambda, nu, kappa, verbose)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.