hctrial (version 0.1.0)

strat_interim: Adjust a subspace stratified design at interim.

Description

Adjust a subspace stratified design at interim.

Usage

strat_interim(start, sub_stageone)

Arguments

start

An initialized stratified design as returned by strat_start().

sub_stageone

The subtypes observed for the patients accrued in stage 1.

Value

A list returning the arguments of the function and the preliminary design of a stratified trial adjusted at interim.

Examples

# NOT RUN {
p0_sub <- c(0.1, 0.3, 0.5)
p1_sub <- c(0.3, 0.5, 0.7)
distr_sub <- c(1/3, 1/3, 1/3)
start <- strat_start(p0_sub, p1_sub, distr_sub)
n1 <- start$des_start[2]
subone <- sample(c(1,2,3), n1, TRUE)
strat_interim(start, subone)
# }