basksim (version 2.0.2)

get_results.exnex: Get Results for Simulation of a Basket Trial with the EXNEX Design

Description

Get Results for Simulation of a Basket Trial with the EXNEX Design

Usage

# S3 method for exnex
get_results(
  design,
  n,
  p1 = NULL,
  lambda,
  tau_scale,
  w,
  iter = 1000,
  n_mcmc = 10000,
  data = NULL,
  ...
)

Value

A matrix of results with iter rows. A 0 means, that the null hypothesis that the response probability exceeds p0 was not rejected, a 1 means, that the null hypothesis was rejected.

Arguments

design

An object of class exnex.

n

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

p1

Probabilities used for the simulation. If NULL then all probabilities are set to p0.

lambda

The posterior probability threshold.

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.

iter

The number of iterations in the simulation. Is ignored if data is specified.

n_mcmc

Number of MCMC samples.

data

An object of class scenario_list as returned by the function bhmbasket::simulateScenarios.

...

Further arguments.

Examples

design <- setup_exnex(k = 3, p0 = 0.2)
# \donttest{
# Equal sample sizes
get_results(design, n = 20, p1 = c(0.2, 0.5, 0.5),
  lambda = 0.95, tau_scale = 1, w = 0.5, iter = 100)

# Unequal sample sizes
get_results(design, n = c(15, 20, 25), p1 = c(0.2, 0.5, 0.5),
  lambda = 0.95, tau_scale = 1, w = 0.5, iter = 100)
# }