R/ideal_pcc.R

ideal_pcc <-
function(mu0, m, p1=0.5)
{
	kt=1/2*log((1-p1)/p1)
	pnorm((m*mu0^2-kt)/(sqrt(m)*mu0))*p1+pnorm((m*mu0^2+kt)/(sqrt(m)*mu0))*(1-p1)
}

Try the HDDesign package in your browser

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

HDDesign documentation built on May 2, 2019, 6:41 a.m.