R/hct_empirical.R
In HDDesign: Sample Size Calculation for High Dimensional Classification Study

hct_empirical <-
function(pvalue, p, n)
{
	
	j=1:length(pvalue)
	jp=j/p
	k=which.max((jp-pvalue)/sqrt(jp*(1-jp)))
	pvalue[k]
}

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

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

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the HDDesign package in your browser