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