basksim (version 2.0.2)

get_evaluation.exnex: Evaluate a Basket Trial with the EXNEX Design

Description

Evaluate a Basket Trial with the EXNEX Design

Usage

# S3 method for exnex
get_evaluation(
  design,
  n,
  r,
  lambda,
  level = 0.95,
  tau_scale,
  w,
  n_mcmc = 10000,
  ...
)

Value

A list containing the point estimates of the basket-specific response rates.

Arguments

design

An object of class exnex.

n

The sample sizes of the baskets. A vector must be used for varying sample sizes.

r

Vector of responses.

lambda

The posterior probability threshold.

level

Level of the credibility intervals.

tau_scale

Standard deviation of the half normal prior exchangeability distribution for the variance of the thetas.

w

Fixed prior weight for the exchangeability part of the model.

n_mcmc

Number of MCMC samples.

...

Further arguments.

Examples

design <- setup_exnex(k = 3, p0 = 0.2)

# Equal sample sizes
get_evaluation(design = design, n = c(20, 20, 20), r = c(10, 15, 5),
  lambda = 0.95, tau_scale = 1, w = 0.5, iter = 100)

# Unequal sample sizes
get_evaluation(design = design, n = c(15, 20, 25), r = c(10, 15, 17),
  lambda = 0.95, tau_scale = 1, w = 0.5, iter = 100)