# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
lambda_entropy <- function(v_tau, a, b) {
.Call('mixpack_lambda_entropy', PACKAGE = 'mixpack', v_tau, a, b)
}
lambda_demp <- function(v_tau, a, b) {
.Call('mixpack_lambda_demp', PACKAGE = 'mixpack', v_tau, a, b)
}
lambda_dempMod <- function(v_tau, a, b) {
.Call('mixpack_lambda_dempMod', PACKAGE = 'mixpack', v_tau, a, b)
}
lambda_coda <- function(v_tau, a, b) {
.Call('mixpack_lambda_coda', PACKAGE = 'mixpack', v_tau, a, b)
}
lambda_codaNorm <- function(v_tau, a, b) {
.Call('mixpack_lambda_codaNorm', PACKAGE = 'mixpack', v_tau, a, b)
}
lambda_prop <- function(v_tau, a, b) {
.Call('mixpack_lambda_prop', PACKAGE = 'mixpack', v_tau, a, b)
}
omega_const <- function(v_tau, a, b) {
.Call('mixpack_omega_const', PACKAGE = 'mixpack', v_tau, a, b)
}
omega_prop <- function(v_tau, a, b) {
.Call('mixpack_omega_prop', PACKAGE = 'mixpack', v_tau, a, b)
}
omega_dich <- function(v_tau, a, b) {
.Call('mixpack_omega_dich', PACKAGE = 'mixpack', v_tau, a, b)
}
mergeComponents <- function(post, a, b) {
.Call('mixpack_mergeComponents', PACKAGE = 'mixpack', post, a, b)
}
mergeComponents_mult <- function(post, a, b) {
.Call('mixpack_mergeComponents_mult', PACKAGE = 'mixpack', post, a, b)
}
merge_step_cpp <- function(post, omega, lambda) {
.Call('mixpack_merge_step_cpp', PACKAGE = 'mixpack', post, omega, lambda)
}
get_hierarchical_partition_cpp <- function(post, omega = "prop", lambda = "coda") {
.Call('mixpack_get_hierarchical_partition_cpp', PACKAGE = 'mixpack', post, omega, lambda)
}
get_hierarchical_partition_mult_fast <- function(post, omega = "prop", lambda = "coda") {
.Call('mixpack_get_hierarchical_partition_mult_fast', PACKAGE = 'mixpack', post, omega, lambda)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.