R/p_minus.R

Defines functions p_minus

Documented in p_minus

p_minus <-
function(p1, p2){
  
  k = length(p1)
  p2_rev = rev(p2[-1])
  p2_sum = rev(cumsum(p2_rev))
  p1_short = p1[-k]
  res = sum(p1_short*p2_sum)
  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.