# NOT RUN {
cnet <- cnRandomCatnet(numnodes=10, maxpars=2, numcats=2)
psamples <- cnSamples(object=cnet, numsamples=100)
netlist <- cnSearchOrder(data=psamples, maxParentSet=2)
bnet <- cnFind(object=netlist, complx=cnComplexity(cnet))
bnet
# }
Run the code above in your browser using DataLab