# NOT RUN {
messages <- mutate_edges(ison_eies,
generate_random(ison_eies), attr_name = "random")
model1 <- network_reg(weight ~ random +
same(Discipline) + same(Citations), messages)
summary(model1, reps = 200) # increase reps for publication
# }
Run the code above in your browser using DataLab