R/hct_method_MC_corr.R

Defines functions hct_method_MC_corr

Documented in hct_method_MC_corr

hct_method_MC_corr <-
function(mu0, p, m, n, hct, alpha0, nrep, p1=0.5, ss=FALSE, ntest, pcorr, chol.rho,sampling.p)
{

	temp=sapply(1:nrep, hct_method_single_MC_corr, mu0, p, m, n, hct, alpha0, p1, ss, ntest, pcorr, chol.rho,sampling.p)
	if (ss==FALSE)
            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.