get_results.exnex {basksim}

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 class 'exnex'
get_results(
  design,
  n,
  p1 = NULL,
  lambda,
  tau_scale,
  w,
  iter = 1000,
  n_mcmc = 10000,
  data = NULL,
  ...
)

Arguments

design

An object of class exnex.

n

The sample size per basket.

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.

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.

Examples

design <- setup_exnex(k = 3, p0 = 0.2)
get_results(design, n = 20, p1 = c(0.2, 0.5, 0.5), lambda = 0.95,
  tau_scale = 1, w = 0.5, iter = 100)