ECMtesting(LOHtable,ptlist,noloh,loh1,loh2,Nsim=100)
set.seed(25)
LOHtable<-cbind(1:15,matrix(sample(c(0,1,2),15*12,replace=TRUE),ncol=12))
ECMtesting(LOHtable,rep(1:3,each=4),noloh=0,loh1=1,loh2=2,Nsim=100)
Run the code above in your browser using DataLab