hist_interim {hctrial}

Adjust a design based on historical controls at interim using the covariate data of the patients accrued in stage 1.

Description

Adjust a design based on historical controls at interim using the covariate data of the patients accrued in stage 1.

Usage

hist_interim(start, stageone_data)

Arguments

start

An initialized design based on historical controls as returned by hist_start().

stageone_data

A dataframe containing the relevant covariate data of the patients accrued in stage 1.

Value

A list returning the arguments of the function and the preliminary design of a trial based on historical controls adjusted at interim.

Examples

X <- abs(rnorm(1000, 0, 1))
Y <- rbinom(1000, 1, 1-exp(-X))
mydata <- data.frame("X" = X, "Y" = Y)
start <- hist_start(mydata, Y~X, c1 = 2)
n1 <- start$des_start[2]
X1 <- abs(rnorm(n1, 0, 1))
dataone <- data.frame("X" = X1)
hist_interim(start, dataone)