R/gen_sim_pvalue_null.R

gen_sim_pvalue_null <-
function(p, m, alpha0)
{
	nn=ceiling(p*alpha0) 
	u=rbeta(1, nn, p-m+1-nn)
	v=runif(nn-1)*u
	c(v, u)
}

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.