# Generating a 'circle' graph as a non-decomposable graph
adj <- graph.sim( p = 5, graph = "circle" )
adj # adjacency of graph with 5 nodes
sample <- rgwish( n = 1, adj = adj, b = 3, D = diag( 5 ) )
round( sample, 2 )
sample <- rgwish( n = 5, adj = adj )
round( sample, 2 )
Run the code above in your browser using DataLab