cnet <- cnRandomCatnet(numnodes=10, maxParents=2, numCategories=2)
psamples <- cnSamples(object=cnet, numsamples=100)
netlist <- cnSearchOrder(data=psamples, maxParentSet=2)
bnet <- cnFind(object=netlist, complexity=cnComplexity(cnet))
bnet
Run the code above in your browser using DataLab