dec.table: Generate a dose-finding decision table

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

Generate a dose-finding decision table

Description

Generate a two- or 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 I error. This controls the upper bound for dose escalation.
alpha.r	Right-side overall type I error. This controls the lower bound for dose de-escalation.
alpha.u	Right-side overall type I error used to determine the lower bound for "DU".
pt	A numeric vector of target toxicities. It should have length 1, or length 2 when the target is an interval.
n	A vector of sample sizes at each stage. sum(n) is the total sample size. For A+B designs, n has length 2; for A+B+C designs, n has length 3.
sf.param	A single real value specifying the gamma parameter for the Hwang-Shih-DeCani spending function. The allowable range is [-40, 40]. Larger values spend more error early and leave less for later stages. Defaults to 4.
pe.par	Alternative hypothesis offset used to calculate power and the type II error. The alternative is defined as pe = pt + pe.par. Defaults to 0.25.
...	Unused arguments.

Details

An alpha-spending method is available for two- and three-stage designs. dec.table uses the Hwang-Shih-DeCani spending function.

Value

An object of class "dec.table", returned as a list containing:

table	The generated decision table.
alpha.two	A vector of true type I errors for the two-sided test.
alpha.one	A vector of true type I errors for the right-sided test.
beta	The true type II error, which depends on the alternative hypothesis.
E	A vector of "E" boundaries.
D	A vector of "D" boundaries.
DU	A vector of "DU" boundaries.
pt	The input target toxicity vector.
n	The input stage-wise sample sizes.
sf.param	The input alpha-spending parameter.

Author(s)

Wenchuan Guo <[e-mail]>

Examples

alpha.l <- 0.6
alpha.r <- 0.4
alpha.u <- 0.1
pt <- 0.3
# Print the 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

tsdf documentation built on April 26, 2026, 1:06 a.m.