R/cv_method_MC.R

Defines functions cv_method_MC

Documented in cv_method_MC

cv_method_MC <-
function(mu0, p, m, n, alpha_list, nrep, p1=0.5, ss=F, ntest, sampling.p=0.5)
{
	temp=sapply(rep(mu0, nrep), cv_method_single_MC, p, m, n, alpha_list, p1, ss, ntest,sampling.p) 

	if (ss==F)
             mean(temp) 
	else
	        apply(temp, 1, mean)
}

Try the HDDesign package in your browser

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

HDDesign documentation built on May 29, 2017, 8:13 p.m.