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