cnet <- cnRandomCatnet(numnodes=20, maxParents=3, numCategories=2)
psamples <- cnSamples(cnet, 100)
nodeOrder <- sample(1:20)
nets <- cnSearchOrder(psamples, perturbations=NULL,
maxParentSet=2, maxComplexity=50, nodeOrder)
cnParHist(object=nets)
Run the code above in your browser using DataLab