# Example 1: Using utility.weighted method
probt <- c(0.05, 0.15, 0.30, 0.50, 0.65)
probe <- c(0.10, 0.25, 0.45, 0.60, 0.55)
tterm <- c(0.95, 0.90, 0.85, 0.75, 0.60)
eterm <- c(0.90, 0.85, 0.80, 0.85, 0.70)
obd_weighted <- obd.select(
probt = probt, probe = probe,
method = "utility.weighted",
phi2 = 0.35, w1 = 1.0, w2 = 0.5,
tterm = tterm, eterm = eterm,
stopT = 0.10, stopE = 0.10
)
# Example 2: Using max.effprob method
obd_maxeff <- obd.select(
probt = probt, probe = probe,
method = "max.effprob",
phi = 0.30,
tterm = tterm, eterm = eterm,
stopT = 0.10, stopE = 0.10
)
# Example 3: Using utility.scoring method
obd_scoring <- obd.select(
probt = probt, probe = probe,
method = "utility.scoring",
psi00 = 0, psi11 = 60,
tterm = tterm, eterm = eterm,
stopT = 0.10, stopE = 0.10
)
Run the code above in your browser using DataLab