# NOT RUN {
# First, extract the mesolevel of the multilevel network
affiliation <- extract_mesolevel(linked_sim)
# To obtain both transformed networks
transformed <- mode_transformation(affiliation)
# To obtain just one transformed network
high_transformed <- mode_transformation(affiliation, which = "high")
# }
Run the code above in your browser using DataLab