# NOT RUN {
# }
# NOT RUN {
time <- 9
status <- 0
dose <- 20
step_zero <- ewoc_d1ph(cbind(time, status) ~ dose, type = 'discrete',
theta = 0.33, alpha = 0.25, tau = 10,
min_dose = 20, max_dose = 100,
dose_set = seq(20, 100, 20),
rho_prior = matrix(1, ncol = 2, nrow = 1),
mtd_prior = matrix(1, ncol = 2, nrow = 1),
distribution = 'exponential',
rounding = 'nearest')
stop_rule_d1ph(step_zero)
response_sim <- response_d1ph(rho = 0.05, mtd = 20, theta = 0.33,
min_dose = 10, max_dose = 50,
tau = 10, distribution = "exponential")
sim <- ewoc_simulation(step_zero = step_zero,
n_sim = 2, sample_size = 30,
alpha_strategy = "conditional",
response_sim = response_sim,
stop_rule_sim = stop_rule_d1ph,
ncores = 1)
# }
Run the code above in your browser using DataLab