# only for test purposes
data("BoutrosRNAi2002")
D <- BoutrosRNAiDens
control = set.default.parameters(unique(colnames(D)), Pe=prior.EgeneAttach.EB(D), mcmc.nsamples=100, mcmc.nburnin=50, type="CONTmLLBayes") # these are *not* realistic values
res <- nem(D,inference="mc.eminem", control=control)
if(require(Rgraphviz))
plot(res)
Run the code above in your browser using DataLab