dec.table: generate three-stage dose-finding decision table

In wguo1990/tsdf: Two-/Three-Stage Designs for Phase 1&2 Clinical Trials

Description

Generate three stage dose finding decision table

Usage

dec.table(alpha.l, alpha.r, alpha.u, pt, n, sf.param = 4, pe.par = 0.25, ...)

Arguments

alpha.l	left-side overall type 1 error. Control the upper bound of dose escalation.
alpha.r	right-side overall type 1 error. Control the lower bound of dose de-escalatition.
alpha.u	right-side overall type 1 error. This also controls the lower bound of dose de-escalatition, but it is used to find lower bound for "DU".
pt	a numeric vector of target toxicity. Should be a vector with 1 or 2(when the target is an interval).
n	a vector of sample size at each stage. sum(n) is the total sample size. For A+B designs, n is a vector with length 2; for A+B+C designs, n has length 3.
sf.param	a single real value specifying the gamma parameter for which Hwang-Shih-DeCani spending is to be computed; allowable range is [-40, 40]. Increasing this parameter implies that more error is spent early stage and less is available in late stage. Default to 4.
pe.par	alternative hypothesis that used to calculate power/type 2 error. The alternative is set to be pe = pt + pe.par. Default to 0.25.
...	not used argument.

Details

Alpha-spending method is added to two-/three-stage designs. dec.table supports Hwang-Shih-DeCani spending function.

Value

An object of class "dec.table" is a list containing:

table	the generated decision table.
alpha.two	a vector of true type 1 error for two-tailed test.
alpha.one	a vector of true type 1 error for right-tailed test.
beta	a single value of true type 2 error(depends on alternative).
E	a vector of "E" bound.
D	a vector of "D" bound.
DU	a vector of "DU" bound.
pt	input; a vector of target toxicity
n	input; a vector with sample size at each stage.
sf.param	input; the alpha-spending function parameter used.

Author(s)

Wenchuan Guo <[e-mail]>

Examples

alpha.l <- 0.6
alpha.r <- 0.4
alpha.u <- 0.1
pt <- 0.3
# print out decision table for a 3+3+3 design 
n <- rep(3, 3)
dec.table(alpha.l, alpha.r, alpha.u, pt, n)$table
# 3+3 design
n <- rep(3, 2)
dec.table(alpha.l, alpha.r, alpha.u, pt, n)$table

wguo1990/tsdf documentation built on July 2, 2021, 12:54 a.m.