# 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
opar = par(no.readonly=TRUE)
par(mfrow=c(1,3), pty="s")
image(out[[1]], main="1st sample")
image(out[[2]], main="2nd sample")
image(out[[3]], main="3rd sample")
par(opar)
# }
Run the code above in your browser using DataLab