res <- EPsProg_tte(HRgo = 0.8, d2 = 50,
alpha = 0.025, beta = 0.1,
step1 = 1, step2 = 0.95,
w = 0.3, hr1 = 0.69, hr2 = 0.81,
id1 = 280, id2 = 420,
gamma = 0, fixed = FALSE)
Run the code above in your browser using DataLab