##generate data
set.seed(100)
n = 1000
cov_num = 5
level_num = c(2,2,2,2,2)
pr = rep(0.5,10)
beta = c(0.1,0.4,0.3,0.2,0.5,0.5,0.4,0.3,0.2,0.1)
omega = c(0.1, 0.1, rep(0.8 / 5, times = 5))
mu1 = 0
mu2 = 0.7
sigma = 1
type = "linear"
p = 0.85
dataH = getData(n,cov_num,level_num,pr,type,beta,
mu1,mu2,sigma,"HuHuCAR",omega,p)
#run the corrected t-test
HHct=corr.test(dataH)
HHct
Run the code above in your browser using DataLab