cnet <- cnRandomCatnet(numnodes=10, maxParents=3, numCategories=3)
nsamples <- 20
perturbations <- matrix(rbinom(10*nsamples, 2, 0.4), nrow=10)
## generate a perturbed sample of size 100 from cnet
psamples <- cnSamplesPert(object=cnet, perturbations, numsamples=nsamples)Run the code above in your browser using DataLab