data("BoutrosRNAi2002")
D <- BoutrosRNAiDiscrete[,9:16]
result = nem(D, control=set.default.parameters(unique(colnames(D)), para=c(0.13,0.05)))
resEdgeInf = infer.edge.type(result, BoutrosRNAiLogFC)
if(require(Rgraphviz))
plot.nem(resEdgeInf)
Run the code above in your browser using DataLab