R/Bernstein.p.value.R

"Bernstein.p.value" <-
function(n, Delta, v) {
 if ((Delta==0) && (v==0))
   return (1)	
 else {
   p <- exp((-n*Delta^2)/(2*v+(2/3)*Delta));
   return(p);
 }
}

Try the mosclust package in your browser

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

mosclust documentation built on June 8, 2025, 11:23 a.m.