# NOT RUN {
cnet <- cnRandomCatnet(numnodes=12, maxpars=3, numcats=2)
psamples <- cnSamples(object=cnet, numsamples=10)
nodeOrder <- sample(1:12)
nets <- cnSearchOrder(data=psamples, pert=NULL,
maxParentSet=2, maxComplexity=36, nodeOrder)
bicnet <- cnFindBIC(object=nets, numsamples=dim(psamples)[2])
bicnet
# }
Run the code above in your browser using DataLab