transition1 <- exponential_transition(h01 = 1.2, h02 = 1.5, h12 = 1.6)
transition2 <- exponential_transition(h01 = 1, h02 = 1.3, h12 = 1.7)
transition3 <- exponential_transition(h01 = 1.1, h02 = 1, h12 = 1.5)
getOneClinicalTrial(
nPat = c(30, 20, 30), transitionByArm = list(transition1, transition2, transition3),
dropout = list(rate = 0, time = 12),
accrual = list(param = "time", value = 0)
)
Run the code above in your browser using DataLab