R/p_plus.R

Defines functions p_plus

Documented in p_plus

p_plus <-
function(p1, p2){
  
  k = length(p1)
  p1_rev = rev(p1[-1])
  p1_sum = rev(cumsum(p1_rev))
  p2_short = p2[-k]
  res = sum(p2_short*p1_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.