R/RcppExports.R

In mrf2d: Markov Random Field Models for Image Analysis

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

conditional_probabilities_mrf <- function(Z, position, R, theta, N, M, n_R, C) {
    .Call('_mrf2d_conditional_probabilities_mrf', PACKAGE = 'mrf2d', Z, position, R, theta, N, M, n_R, C)
}

conditional_probabilities_mrf_sub <- function(Z, sub_mat, position, R, theta, N, M, n_R, C) {
    .Call('_mrf2d_conditional_probabilities_mrf_sub', PACKAGE = 'mrf2d', Z, sub_mat, position, R, theta, N, M, n_R, C)
}

all_cond_probs <- function(Z, R, theta) {
    .Call('_mrf2d_all_cond_probs', PACKAGE = 'mrf2d', Z, R, theta)
}

gradient_crossed_free <- function(Z, R, theta) {
    .Call('_mrf2d_gradient_crossed_free', PACKAGE = 'mrf2d', Z, R, theta)
}

icm_restoration_cpp <- function(init_Z, R, theta, corr_prob, cycles) {
    .Call('_mrf2d_icm_restoration_cpp', PACKAGE = 'mrf2d', init_Z, R, theta, corr_prob, cycles)
}

cprob_ghm_one <- function(Z, position, R, theta, N, M, n_R, C, mus, sigmas, Y) {
    .Call('_mrf2d_cprob_ghm_one', PACKAGE = 'mrf2d', Z, position, R, theta, N, M, n_R, C, mus, sigmas, Y)
}

cprob_ghm_one_sub <- function(Z, sub_mat, position, R, theta, N, M, n_R, C, mus, sigmas, Y) {
    .Call('_mrf2d_cprob_ghm_one_sub', PACKAGE = 'mrf2d', Z, sub_mat, position, R, theta, N, M, n_R, C, mus, sigmas, Y)
}

cprob_ghm_all <- function(Z, R, theta, mus, sigmas, Y) {
    .Call('_mrf2d_cprob_ghm_all', PACKAGE = 'mrf2d', Z, R, theta, mus, sigmas, Y)
}

cprob_ghm_all_sub <- function(Z, sub_mat, R, theta, mus, sigmas, Y) {
    .Call('_mrf2d_cprob_ghm_all_sub', PACKAGE = 'mrf2d', Z, sub_mat, R, theta, mus, sigmas, Y)
}

icm_gaussian_cpp <- function(Y, R, init_Z, theta, mus, sigmas, cycles) {
    .Call('_mrf2d_icm_gaussian_cpp', PACKAGE = 'mrf2d', Y, R, init_Z, theta, mus, sigmas, cycles)
}

icm_gaussian_cpp_sub <- function(Y, sub_mat, R, init_Z, theta, mus, sigmas, cycles) {
    .Call('_mrf2d_icm_gaussian_cpp_sub', PACKAGE = 'mrf2d', Y, sub_mat, R, init_Z, theta, mus, sigmas, cycles)
}

gibbs_sampler_mrf2d <- function(init_Z, R, theta, n_steps) {
    .Call('_mrf2d_gibbs_sampler_mrf2d', PACKAGE = 'mrf2d', init_Z, R, theta, n_steps)
}

gibbs_sampler_mrf2d_sub <- function(init_Z, sub_mat, fix_mat, R, theta, n_steps) {
    .Call('_mrf2d_gibbs_sampler_mrf2d_sub', PACKAGE = 'mrf2d', init_Z, sub_mat, fix_mat, R, theta, n_steps)
}

table_relative <- function(Z, r, C) {
    .Call('_mrf2d_table_relative', PACKAGE = 'mrf2d', Z, r, C)
}

table_relative_3d <- function(Z, R, C) {
    .Call('_mrf2d_table_relative_3d', PACKAGE = 'mrf2d', Z, R, C)
}

log_pl_mrf <- function(Z, R, theta) {
    .Call('_mrf2d_log_pl_mrf', PACKAGE = 'mrf2d', Z, R, theta)
}

log_pl_mrf_sub <- function(Z, sub_mat, R, theta) {
    .Call('_mrf2d_log_pl_mrf_sub', PACKAGE = 'mrf2d', Z, sub_mat, R, theta)
}