# 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)
# }
# NOT RUN {
## Visualize generated graphs
par(mfrow=c(1,2), pty="s")
image(out$G[[1]]); title("Observation 1")
image(out$G[[2]]); title("Observation 2")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab