cg <- caugi(
A %-->% B,
A %<->% C,
D %<->% E,
class = "ADMG"
)
districts(cg)
# Returns list with districts: {A, C}, {B}, {D, E}
districts(cg, nodes = "A") # Returns c("A", "C")
districts(cg, index = c(1, 4))
Run the code above in your browser using DataLab