autographr(ison_southern_women) /
(autographr(to_mode1(ison_southern_women)) |
autographr(to_mode2(ison_southern_women)))
autographr(ison_adolescents) +
autographr(to_ties(ison_adolescents))
(adolblock <- to_blocks(ison_adolescents,
node_regular_equivalence(ison_adolescents, k = 3)))
autographr(adolblock)
Run the code above in your browser using DataLab