data("BoutrosRNAi2002")
D <- BoutrosRNAiDiscrete[,9:16]
hyper = set.default.parameters(unique(colnames(D)), para=c(0.13, 0.05), Pm=diag(4))
res <- nemModelSelection(c(0.1,1,10), D, control=hyper)
plot.nem(res,main="highest scoring model")
Run the code above in your browser using DataLab