genes<-paste("Gene", 1:1000)
O<-cbind(c(sample(genes[1:200]),sample(genes[201:1000])),
c(sample(genes[1:200]),sample(genes[201:1000])),
c(sample(genes[1:200]),sample(genes[201:1000]))
)
alph<-computeAlpha(100,ngenes=1000)
selectGenes(O, alph, 0.95)
Run the code above in your browser using DataLab