R/V_S.over.nk.R

Defines functions V_S.over.nk

Documented in V_S.over.nk

V_S.over.nk <-
function(p1, p2, lambda = 1){
  
  part1 = lambda / (3*(lambda+1)^2) 
  part2 = 1 - sum(((p1 + lambda*p2)/(1 + lambda))^3)
  res = part1*part2
  return(res)
}

Try the OptOTrials package in your browser

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

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