# NOT RUN {
## set inputs
modelP <- matrix(runif(16),nrow=4)
## generate 3 observations without self-loops.
out <- gmodel.P(modelP,rep=3,noloop=TRUE)
## Visualize generated graphs
par(mfrow=c(1,3), pty="s")
image(out[[1]])
image(out[[2]])
image(out[[3]])
# }
Run the code above in your browser using DataLab