transition <- exponential_transition(h01 = 1.2, h02 = 1.5, h12 = 1.6)
data <- getClinicalTrials(
nRep = 1, nPat = c(100), seed = 1234, datType = "1rowTransition",
transitionByArm = list(transition), dropout = list(rate = 0.5, time = 12),
accrual = list(param = "intensity", value = 7)
)[[1]]
corPFSOS(data, transition = exponential_transition(), bootstrap = FALSE)
if (FALSE) {
corPFSOS(data, transition = exponential_transition(), bootstrap = TRUE)
}
Run the code above in your browser using DataLab