R/RcppExports.R

In eifer4/stochasticSampling: Stochastic partitioning sampler.

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

Acalc <- function(colSumX, XcolCross, Xcross, h0, N) {
    .Call('_stochasticSampling_Acalc', PACKAGE = 'stochasticSampling', colSumX, XcolCross, Xcross, h0, N)
}

logProb <- function(comp, invariantData, priors, temp) {
    .Call('_stochasticSampling_logProb', PACKAGE = 'stochasticSampling', comp, invariantData, priors, temp)
}

#' colSum
#' 
#' An Eigen library implementation of column sums
#'
#' @param X A matrix
#' @export
colSum <- function(X) {
    .Call('_stochasticSampling_colSum', PACKAGE = 'stochasticSampling', X)
}

#' move1Prob
#' 
#' Returns the probability that a move to add or remove covariates from a component
#' will be accepted
#'
#' @param oldComp the old component configuration
#' @param newComp the new component configuration
#' @param m the number of covariates in the model space
#' @param n the number of outcomes in the model space
#' @param p the total number of possible covariates
#' @param K the total number of components currently
#' @param pComp the total number of components that have fully saturated outcome models
#' @param ncomp the number of components that could have potentially been selected
#' @param priors the priors on the coefficients
#' @param invariantData the data that doesn't change 
#' @param merge integer indicating if this is a merge or split move
move1Prob <- function(oldComp, newComp, m, n, p, K, pComp, nComp, priors, invariantData, merge) {
    .Call('_stochasticSampling_move1Prob', PACKAGE = 'stochasticSampling', oldComp, newComp, m, n, p, K, pComp, nComp, priors, invariantData, merge)
}

#' move2Prob
#' 
#' Calculates the log probability portion necessary to accept moves combining
#' outcomes into a new component
#'
#' @param cmbComp the combined components from the proposed move
#' @param splitComp the components from the current state K, m1, n1, m2, n2, c,  p1Y, h, h0, beta0, alpha0, nu, sigma02, rho, invariantData, merge=0
move2Prob <- function(cmbComp, splitComp, K, m1, n1, m2, n2, c, p1Y, priors, invariantData, merge) {
    .Call('_stochasticSampling_move2Prob', PACKAGE = 'stochasticSampling', cmbComp, splitComp, K, m1, n1, m2, n2, c, p1Y, priors, invariantData, merge)
}

tempExchange <- function(invariantData, comp, priors, tempIdx, temps) {
    invisible(.Call('_stochasticSampling_tempExchange', PACKAGE = 'stochasticSampling', invariantData, comp, priors, tempIdx, temps))
}