R/RcppExports.R

In PLMIX: Bayesian Analysis of Finite Mixtures of Plackett-Luce Models for Partial Rankings/Orderings

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

CompProbZpartial <- function(p, pi_inv, Y, u_bin, n_rank, omega) {
    .Call(`_PLMIX_CompProbZpartial`, p, pi_inv, Y, u_bin, n_rank, omega)
}

CompRateP <- function(pi_inv, Y, z, u_bin, n_rank, rate0) {
    .Call(`_PLMIX_CompRateP`, pi_inv, Y, z, u_bin, n_rank, rate0)
}

CompRateYpartial <- function(p, pi_inv, ref_order, z, n_rank) {
    .Call(`_PLMIX_CompRateYpartial`, p, pi_inv, ref_order, z, n_rank)
}

Estep <- function(p, ref_order, weights, pi_inv) {
    .Call(`_PLMIX_Estep`, p, ref_order, weights, pi_inv)
}

PLMIXsim <- function(N, K, G, p, ref_order, weights, rankingFormat, pi_inv) {
    .Call(`_PLMIX_PLMIXsim`, N, K, G, p, ref_order, weights, rankingFormat, pi_inv)
}

SimYpsilon <- function(rate, n_rank) {
    .Call(`_PLMIX_SimYpsilon`, rate, n_rank)
}

UpPhetpartial <- function(p, ref_order, pi_inv, u_bin, z_hat, shape0, rate0, n_rank) {
    .Call(`_PLMIX_UpPhetpartial`, p, ref_order, pi_inv, u_bin, z_hat, shape0, rate0, n_rank)
}

UpWhet <- function(z_hat, alpha0) {
    .Call(`_PLMIX_UpWhet`, z_hat, alpha0)
}

chisqmeasureobs <- function(pi_inv, p, weights) {
    .Call(`_PLMIX_chisqmeasureobs`, pi_inv, p, weights)
}

chisqmeasureobs1dim <- function(pi_inv, p, weights) {
    .Call(`_PLMIX_chisqmeasureobs1dim`, pi_inv, p, weights)
}

chisqmeasureobscond <- function(pi_inv, p, weights) {
    .Call(`_PLMIX_chisqmeasureobscond`, pi_inv, p, weights)
}

chisqmeasureobsmatrix1dim <- function(pi_inv, p, weights) {
    .Call(`_PLMIX_chisqmeasureobsmatrix1dim`, pi_inv, p, weights)
}

chisqmeasuretheo <- function(N, ref_order, p, weights, pi_inv_obs) {
    .Call(`_PLMIX_chisqmeasuretheo`, N, ref_order, p, weights, pi_inv_obs)
}

chisqmeasuretheo1dim <- function(N, ref_order, p, weights, pi_inv_obs) {
    .Call(`_PLMIX_chisqmeasuretheo1dim`, N, ref_order, p, weights, pi_inv_obs)
}

chisqmeasuretheocond <- function(N, ref_order, p, weights, pi_inv_obs) {
    .Call(`_PLMIX_chisqmeasuretheocond`, N, ref_order, p, weights, pi_inv_obs)
}

chisqmeasuretheomatrix1dim <- function(N, ref_order, p, weights, pi_inv_obs) {
    .Call(`_PLMIX_chisqmeasuretheomatrix1dim`, N, ref_order, p, weights, pi_inv_obs)
}

howmanyranked <- function(pi_inv) {
    .Call(`_PLMIX_howmanyranked`, pi_inv)
}

#' @rdname loglikelihood
#' @export
loglikPLMIX <- function(p, ref_order, weights, pi_inv) {
    .Call(`_PLMIX_loglikPLMIX`, p, ref_order, weights, pi_inv)
}

quickintsample <- function(n, size, prob) {
    .Call(`_PLMIX_quickintsample`, n, size, prob)
}

tau <- function(pi_inv) {
    .Call(`_PLMIX_tau`, pi_inv)
}

top1freq1dim <- function(pi_inv) {
    .Call(`_PLMIX_top1freq1dim`, pi_inv)
}

umat <- function(pi_inv) {
    .Call(`_PLMIX_umat`, pi_inv)
}