R/RcppExports.R

In dmbc: Model Based Clustering of Binary Dissimilarity Measurements

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

#' Internal functions for MCMC simulation.
#'
#' For internal use only.
#'
#' @param raiD internal SEXP data structure
#' @param raix internal SEXP data structure
#' @param raing internal SEXP data structure
#' @param radalpha internal SEXP data structure
#' @param rn internal SEXP data structure
#' @param rp internal SEXP data structure
#' @param rG internal SEXP data structure
#' @param rS internal SEXP data structure
#' @param rtotiter internal SEXP data structure
#' @param radZ internal SEXP data structure
#' @param rgamma_z internal SEXP data structure
#' @param reta internal SEXP data structure
#' @param rgamma_alpha internal SEXP data structure
#' @param rsigma2 internal SEXP data structure
#' @param rlambda internal SEXP data structure
#' @param rhyper_eta_a internal SEXP data structure
#' @param rhyper_eta_b internal SEXP data structure
#' @param rhyper_sigma2_a internal SEXP data structure
#' @param rhyper_sigma2_b internal SEXP data structure
#' @param rhyper_lambda internal SEXP data structure
#' @param rfamily internal SEXP data structure
#' @param rverbose internal SEXP data structure
#'
#' @aliases dmbc-internal
#' @aliases dmbc_internal
#'
dmbc_mcmc <- function(raiD, raix, raing, radalpha, rn, rp, rG, rS, rtotiter, radZ, rgamma_z, reta, rgamma_alpha, rsigma2, rlambda, rhyper_eta_a, rhyper_eta_b, rhyper_sigma2_a, rhyper_sigma2_b, rhyper_lambda, rfamily, rverbose) {
    .Call('_dmbc_dmbc_mcmc', PACKAGE = 'dmbc', raiD, raix, raing, radalpha, rn, rp, rG, rS, rtotiter, radZ, rgamma_z, reta, rgamma_alpha, rsigma2, rlambda, rhyper_eta_a, rhyper_eta_b, rhyper_sigma2_a, rhyper_sigma2_b, rhyper_lambda, rfamily, rverbose)
}

#' Function for relabeling the parameter chain
#'
#' @param radtheta internal SEXP data structure
#' @param radz internal SEXP data structure
#' @param radeta internal SEXP data structure
#' @param radsigma2 internal SEXP data structure
#' @param radlambda internal SEXP data structure
#' @param radprob internal SEXP data structure
#' @param raix_ind internal SEXP data structure
#' @param rinit internal SEXP data structure
#' @param rM internal SEXP data structure
#' @param rR internal SEXP data structure
#'
#' @aliases dmbc-internal
#' @aliases dmbc_internal
#'
#' @rdname dmbc_mcmc
#'
dmbc_relabel <- function(radtheta, radz, radalpha, radeta, radsigma2, radlambda, radprob, raix_ind, rinit, rn, rp, rS, rM, rR, rG, rverbose) {
    .Call('_dmbc_dmbc_relabel', PACKAGE = 'dmbc', radtheta, radz, radalpha, radeta, radsigma2, radlambda, radprob, raix_ind, rinit, rn, rp, rS, rM, rR, rG, rverbose)
}

#' Packing of the parameter chain to be run before relabeling
#'
#' @rdname dmbc_mcmc
#'
dmbc_pack_par <- function(radz, radalpha, radlambda, rn, rp, rM, rG) {
    .Call('_dmbc_dmbc_pack_par', PACKAGE = 'dmbc', radz, radalpha, radlambda, rn, rp, rM, rG)
}