R/RcppExports.R

In bayesDP: Implementation of the Bayesian Discount Prior Approach for Clinical Trials

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

sigma2marginal <- function(n, grid, XtX, SigmaBetaInv, Xstar, Xty, mu0, ystar) {
    .Call(`_bayesDP_sigma2marginal`, n, grid, XtX, SigmaBetaInv, Xstar, Xty, mu0, ystar)
}

sigma2marginalmc <- function(n, grid, XtX, SigmaBetaInv, Xstar, Xty, mu0, ystar) {
    .Call(`_bayesDP_sigma2marginalmc`, n, grid, XtX, SigmaBetaInv, Xstar, Xty, mu0, ystar)
}

betaRegSampler <- function(sigma2, XtX, SigmaBetaInv, mu0, Xty, nsamples) {
    .Call(`_bayesDP_betaRegSampler`, sigma2, XtX, SigmaBetaInv, mu0, Xty, nsamples)
}

betaRegSamplermc <- function(sigma2, XtX, SigmaBetaInv, SigmaBetaInvID, mu0, Xty, nsamples) {
    .Call(`_bayesDP_betaRegSamplermc`, sigma2, XtX, SigmaBetaInv, SigmaBetaInvID, mu0, Xty, nsamples)
}

ppexpV <- function(q, x, cuts) {
    .Call(`_bayesDP_ppexpV`, q, x, cuts)
}

ppexpM <- function(q, x, cuts) {
    .Call(`_bayesDP_ppexpM`, q, x, cuts)
}