R/RcppExports.R

In IBclust: Information Bottleneck Methods for Clustering Mixed-Type Data

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

entropySingle <- function(p) {
    .Call(`_IBclust_entropySingle`, p)
}

make_IB_distmat <- function(p_xy) {
    .Call(`_IBclust_make_IB_distmat`, p_xy)
}

js_divergence <- function(p, q) {
    .Call(`_IBclust_js_divergence`, p, q)
}

mutual_information <- function(p_xy, base = 2.0) {
    .Call(`_IBclust_mutual_information`, p_xy, base)
}

klSingle <- function(p, q) {
    .Call(`_IBclust_klSingle`, p, q)
}

vlog <- function(x) {
    .Call(`_IBclust_vlog`, x)
}

qt_x_step_cpp <- function(n_rows, T, beta, py_x, qy_t, qt) {
    .Call(`_IBclust_qt_x_step_cpp`, n_rows, T, beta, py_x, qy_t, qt)
}

qt_x_step_beta_cpp <- function(n_rows, T, py_x, qy_t, qt, qt_x) {
    .Call(`_IBclust_qt_x_step_beta_cpp`, n_rows, T, py_x, qy_t, qt, qt_x)
}

qy_t_step_cpp <- function(py_x, qt_x, qt, px) {
    .Call(`_IBclust_qy_t_step_cpp`, py_x, qt_x, qt, px)
}

qt_x_step_gib_cpp <- function(n_rows, T, beta, alpha, py_x, qy_t, qt) {
    .Call(`_IBclust_qt_x_step_gib_cpp`, n_rows, T, beta, alpha, py_x, qy_t, qt)
}