R/pcochran.R

"pcochran" <-
function(q,n,k)
{

f <- (1/q-1)/(k-1)
p <- 1 - pf(f,(n-1)*(k-1),n-1)*k

p[p<0] <- 0
p[p>1] <- 1

return(p)

}

Try the outliers package in your browser

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

outliers documentation built on March 26, 2022, 9:05 a.m.