| rCRM | R Documentation |
Fit a 2-parameter CRM model (O'Quigley and Shen 1996) regularized with L2 norm (Friedman et al. 2010) adjusted by the distance with the target DLT rate.
rCRM(x, y, dose0, tp = 0.3, family = "2P", mlambda = 1, nlambda = 50, rlambda = NULL, wldose = NULL, nfolds = length(y), foldid = NULL, keep.beta = FALSE, thresh = 1e-07, maxit = 1e+04, threshP = 1e-06, threshB = 100)
x |
input vector of dose. |
y |
response variable. |
dose0 |
dose regimen. |
tp |
target toxicity probability. Default is 0.3. |
family |
type of CRM models. Now only supports 2-paraemter CRM, |
mlambda |
maximum of tuning parameter |
nlambda |
number of |
rlambda |
fraction of |
wldose |
penalty weights used with L2 norm (adaptive L2). The |
nfolds |
number of folds. With |
foldid |
an optional vector of values between 1 and |
keep.beta |
logical flag for returning estimates for all |
thresh |
convergence threshold for coordinate descent. Default value is |
maxit |
maximum number of iterations for coordinate descent. Default is |
threshP |
boundary for calculating the probability of DLT. Default is |
threshB |
boundary for calculating the parameters. Default is 100. The estimates are truncated between |
One-step coordinate descent algorithm is applied for each lambda.
Cross-validation is used for tuning parameters.
An object with S3 class "rCRM".
Beta |
estimates in 2-parameter CRM model. |
fit |
a data.frame containing |
lambda.min |
value of |
flag |
convergence flag (for internal debugging). |
prob |
estimated probability of DLT at each |
dose.close |
the index of dose in |
family |
type of CRM models. |
It may terminate and return NULL.
Maintainer: Xiang Li <xli256@its.jnj.com>
O'Quigley, J., Shen, L.Z. (1996).
Continual reassessment method: a likelihood approach. Biometrics, 673-684.
Friedman, J., Hastie, T. and Tibshirani, R. (2010).
Regularization paths for generalized linear models via coordinate descent, Journal of Statistical Software, Vol. 33(1), 1.
set.seed(1213)
dose0=c(1:6)
prob0=c(0.007, 0.086, 0.294, 0.545, 0.731, 0.841)
m=3; Y=NULL; X=NULL
for (i in 1:length(dose0)) {
Y=c(Y, rbinom(m, size=1, prob=prob0[i]))
X=c(X, rep(i, m))
}
fiti=rCRM(X, Y, dose0, tp=0.3, mlambda=10)
# attributes(fiti)