# \donttest{
set.seed(123)
netwk <- rpanet(5e3,
control =
rpa_control_scenario(alpha = 0.5, beta = 0.5)
)
ret1 <- dprewire.range(
netwk = netwk, which.range = "outin",
target.assortcoef = list("outout" = c(-0.3, 0.3), "inout" = 0.1)
)
ret1$range
# }
Run the code above in your browser using DataLab