R/p2_fun.R
In OptOTrials: Optimal Two-Stage Designs for Ordered Categorical Outcomes

p2_fun <-
function(p1, theta){
  
  Q1j = cumsum(p1)
  Q2j = Q1j / (Q1j+(1-Q1j)*exp(-theta))
  
  p2 = c(Q2j[1], diff(Q2j))
  return(p2)
}

Any scripts or data that you put into this service are public.

OptOTrials documentation built on Sept. 9, 2025, 5:46 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the OptOTrials package in your browser