data(Toydata);
intEpi.o <- list(statM=Toydata$statM,adj=Toydata$adjacency);
EpiMod.o=DoEpiMod(intEpi.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 which contains DNA methylation of 17
#normal and 118 endometrial cancer samples. Since running on the realdata is time-consuming, we comment it out.
#data(Realdata);
# intEpi.o <- list(statM=Realdata$statM,adj=Realdata$adjacency);
#EpiMod.o=DoEpiMod(intEpi.o,nseeds=100,gamma=0.5,nMC=1000,sizeR.v=c(1,100),nameSTUDY="TEST")
Run the code above in your browser using DataLab