R/RcppExports.R

In olssol/basim: Batch-Effect Adjusted Simon's Two-Stage Design

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

#' PDF of single batch
#' @export
bacBatchFreq <- function(y) {
    .Call(`_basim_bacBatchFreq`, y)
}

#' Probability of (n = n, r = 0:n)
#' @export
bacProb <- function(n, bsize, pmat) {
    .Call(`_basim_bacProb`, n, bsize, pmat)
}

#' Prepare probabilities
#' @return A matrix with 2*nmax rows. Row 1-nmax is marginal P(x = r|n)
#'         Row nmax-2*nmax P(x<=r|n);
#' @export
bacCumProb <- function(y, nmax, nmin, bsize) {
    .Call(`_basim_bacCumProb`, y, nmax, nmin, bsize)
}

#' Single Simon 2-stage
#' @export
bacSimonSingle <- function(cumu, n1, r1, n, r) {
    .Call(`_basim_bacSimonSingle`, cumu, n1, r1, n, r)
}

#' Simon's two-stage design 
#' @export
bacSimonDesign <- function(y0, y1, nmax, nmin, bsize, alpha, beta) {
    .Call(`_basim_bacSimonDesign`, y0, y1, nmax, nmin, bsize, alpha, beta)
}

#' Get InterClass Correlation
#' @export
bacICC <- function(ys) {
    .Call(`_basim_bacICC`, ys)
}

#' Get batch sizes to get the total n
#' @export
baBatches <- function(n, bsize) {
    .Call(`_basim_baBatches`, n, bsize)
}

#' Get variance given batch sizes, response rate and ICC
#'  @export
baSaGetVar <- function(bsizes, p, rho) {
    .Call(`_basim_baSaGetVar`, bsizes, p, rho)
}

#' Get actuarial type I and II error in Sargent method
#' @export
baSaAlphaBeta <- function(bsizes, r, p0, p1, rho0, rho1) {
    .Call(`_basim_baSaAlphaBeta`, bsizes, r, p0, p1, rho0, rho1)
}

#' Get Design type I and II error using Sargent method
#' @export
baSaDesign <- function(nmin, bsize, alpha, beta, p0, p1, rho0, rho1) {
    .Call(`_basim_baSaDesign`, nmin, bsize, alpha, beta, p0, p1, rho0, rho1)
}