data("BoutrosRNAi2002")
D <- BoutrosRNAiDiscrete[,9:16]
res <- nem(D,control=set.default.parameters(unique(colnames(D)), para=c(.13,.05)))
#
sccg <- SCCgraph(res$graph,name=TRUE)
#
par(mfrow=c(1,2))
if(require(Rgraphviz)){
plot.nem(res, main="inferred from data")
plot(sccg$graph, main="condensed (rel,key)")
}
Run the code above in your browser using DataLab