# NOT RUN {
adj.g <- toeplitz( c( 0, 1, rep( 0, 3 ) ) )
adj.g # adjacency of graph with 5 nodes and 4 links
sample <- rgcwish( n = 3, adj.g = adj.g, b = 3, D = diag(5) )
round( sample, 2 )
# }
Run the code above in your browser using DataLab