res <- Epgo_L2(HRgo = 0.8, d2 = 50, Adj = 0.4,
w = 0.3, hr1 = 0.69, hr2 = 0.81,
id1 = 280, id2 = 420, fixed = FALSE)
res <- Epgo_R2(HRgo = 0.8, d2 = 50, Adj = 0.9,
w = 0.3, hr1 = 0.69, hr2 = 0.81,
id1 = 280, id2 = 420, fixed = FALSE)
Run the code above in your browser using DataLab