| dec.table {tsdf} | R Documentation |
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. |
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 |
... |
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 <wguo007@ucr.edu>
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