res <- Ed3_L(HRgo = 0.8, d2 = 50, Adj = 0.4,
alpha = 0.025, beta = 0.1, w = 0.3,
hr1 = 0.69, hr2 = 0.81,
id1 = 280, id2 = 420, fixed = FALSE)
res <- Ed3_L2(HRgo = 0.8, d2 = 50, Adj = 0.4,
alpha = 0.025, beta = 0.1, w = 0.3,
hr1 = 0.69, hr2 = 0.81,
id1 = 280, id2 = 420, fixed = FALSE)
res <- Ed3_R(HRgo = 0.8, d2 = 50, Adj = 0.9,
alpha = 0.025, beta = 0.1, w = 0.3,
hr1 = 0.69, hr2 = 0.81,
id1 = 280, id2 = 420, fixed = FALSE)
res <- Ed3_R2(HRgo = 0.8, d2 = 50, Adj = 0.9,
alpha = 0.025, beta = 0.1, w = 0.3,
hr1 = 0.69, hr2 = 0.81,
id1 = 280, id2 = 420, fixed = FALSE)
Run the code above in your browser using DataLab