sim_nofuzzy <-
group_network_perturb(
n_nodes = 45,
n_comm = 3,
n_nets = 3,
perturb_prop = 0.1,
wcr = c(8, 8),
bcr = c(1.5, 8)
)
head(sim_nofuzzy[[1]])
sim_fuzzy <-
group_network_perturb(
n_nodes = 45,
n_comm = 3,
n_nets = 3,
perturb_prop = 0.1,
wcr = c(8, 8),
bcr = c(1.5, 8),
bfcr = c(3, 8),
fuzzy_comms = c('comm_b', 'comm_c')
)
head(sim_fuzzy[[2]])
Run the code above in your browser using DataLab