exitprob(b = c(3.471, 2.454, 2.004), theta = -log(0.6),
I = c(50, 100, 150)/4)
exitprob(b = c(2.963, 2.359, 2.014),
a = c(-0.264, 0.599, 2.014),
theta = c(0.141, 0.204, 0.289),
I = c(81, 121, 160))
Run the code above in your browser using DataLab