tsdf (version 1.1-8)

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

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.

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.

Details

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

Examples

# NOT RUN {
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
# }