# NOT RUN {
## set inputs
W = matrix(c(0.9,0.2,0.2,0.7),nr=2)
n = 200
## generate 2 observations without self-loops.
out <- gmodel.block(W,n,rep=2,noloop=TRUE)
## Visualize generated graphs
par(mfrow=c(1,2))
image(out$G[[1]]); title("Observation 1")
image(out$G[[2]]); title("Observation 2")
# }
Run the code above in your browser using DataLab