data(Toydata);
intFEM.o <- list(statM=Toydata$statM,statR=Toydata$statR,adj=Toydata$adj);
DoFEMbi(intFEM.o,nseeds=1,gamma=0.5,nMC=1000,sizeR.v=c(1,100),
minsizeOUT=10,writeOUT=TRUE,nameSTUDY="TEST",ew.v=NULL);
#You can also test on the Realdata contains matched DNA methylation and RNA Expression of 17 normal and 118 cancer samples. Since running on the realdata is time-consuming, we comment it out.
#data(Realdata);
#intFEM.o <- list(statM=Realdata$statM,statR=Realdata$statR,adj=Realdata$adjacency);
#DoFEMbi(intFEM.o,nseeds=100,gamma=0.5,nMC=1000,sizeR.v=c(1,100),nameSTUDY="TEST");
Run the code above in your browser using DataLab