Reoptimize1 {Phase123} | R Documentation |
Gives the Optimal Dose for enrolling next patient cohort. Used in the SimPhase123 function.
Description
This function returns the optimal dose number to assign the next patient cohort or stops the trial if no dose is deemed acceptable.
Usage
Reoptimize1(Y, I, YE, YT, Doses, Dose, Hypermeans, Hypervars, B)
Arguments
Y |
Vector containing observed patient survival or follow up times. |
I |
Vector indicating whether each patient experienced an exent. |
YE |
Vector containing observed efficacy indicators. |
YT |
Vector containing observed toxicity indicators. |
Doses |
Vector containing standardized doses of patients in trial. |
Dose |
Vector containing the standardized doses considered. |
Hypermeans |
Vector containing prior hypermeans of length 6 for Eff-Tox parameters. |
Hypervars |
Vector containing prior hypervariances of length 6 for Eff-Tox parameters. |
B |
Number of iterations to perform in the MCMC. |
References
[1] Chapple and Thall (2018).A Hybrid Phase I-II/III Clinical Trial Design Allowing Dose Re-Optimization in Phase III. Biometrics. In Press,
Examples
##Doses, YE,YT
Doses= c(1,1,1,2,2,2,1,1,1,3,3,3,1,1,1,2,2,2)
YE = c(0,0,1,1,1,0,0,0,0,1,1,1,0,0,1,1,1,0)
YT=c(0,0,0,1,1,0,1,0,0,1,1,1,0,0,0,1,0,0)
Y=rexp(length(YE))
I=rbinom(length(YE),1,.9)
##Vector of Numerical Doses
Dose = c(1,2,3,3.5,5)
Dose=(Dose-mean(Dose))/sd(Dose)
##Hypermeans for Eff-Tox
Hypermeans = c(.022,3.45,0,-4.23,3.1,0)
Hypervars = c(2.6761, 2.6852, .2, 3.1304, 3.1165, 1)
Hypervars=Hypervars^2
###Number of iterations
B=20000
Reoptimize1(Y,I,YE,YT, Doses, Dose, Hypermeans, Hypervars,B)