set.seed(123)
control <- rpa_control_edgeweight(
sampler = function(n) rgamma(n, shape = 5, scale = 0.2)
)
netwk <- rpanet(nstep = 10^4, control = control)
ret <- assortcoef(netwk)
ret <- assortcoef(
edgelist = netwk$edgelist,
edgeweight = netwk$edge.attr$weight,
directed = TRUE
)
Run the code above in your browser using DataLab