# NOT RUN {
cnet <- cnRandomCatnet(numnodes=10, maxpars=3, numcats=2)
cnMatParents(cnet)
cnet1 <- cnReorderNodes(object=cnet, nodeIndices=cnOrder(cnet))
cnNodes(object=cnet1)
cnMatParents(cnet1)
# }
Run the code above in your browser using DataLab