# NOT RUN {
cnet <- cnRandomCatnet(numnodes=10, maxpars=3, numcats=2)
cnet1 <- cnSubNetwork(object=cnet, nodeIndices=c(1,2,3,4,5), indirectEdges=TRUE)
cnNodes(object=cnet)
cnNodes(object=cnet1)
# }
Run the code above in your browser using DataLab