# NOT RUN {
cnet <- cnRandomCatnet(numnodes=10, maxpars=3, numcats=3)
psamples <- matrix(as.integer(1+rbinom(10*100, 2, 0.4)), nrow=10)
rownames(psamples) <- cnet@nodes
newcnet <- cnSetProb(object=cnet, data=psamples)
# }
Run the code above in your browser using DataLab