res <- utility_tte(d2 = 50, HRgo = 0.8, w = 0.3,
hr1 = 0.69, hr2 = 0.81,
id1 = 280, id2 = 420, xi2 = 0.7, xi3 = 0.7,
alpha = 0.025, beta = 0.1,
c2 = 0.75, c3 = 1, c02 = 100, c03 = 150,
K = Inf, N = Inf, S = -Inf,
steps1 = 1, stepm1 = 0.95, stepl1 = 0.85,
b1 = 1000, b2 = 2000, b3 = 3000,
gamma = 0, fixed = TRUE)
Run the code above in your browser using DataLab