label1<-rep(0:2,each=5)
label2<-rep(0:2,each=4)
exp1<-cbind(matrix(rnorm(5*20),20,5),matrix(rnorm(5*20,2),20,5),matrix(rnorm(5*20,2.5),20,5))
exp2<-cbind(matrix(rnorm(4*20),20,4),matrix(rnorm(4*20,1.5),20,4),matrix(rnorm(4*20,2.5),20,4))
x<-list(list(exp1,label1),list(exp2,label2))
MetaDE.minMCC(x,nperm=100)
Run the code above in your browser using DataLab