if (FALSE) { # requireNamespace("tna", quietly = TRUE)
Mod <- tna::tna(tna::group_regulation)
# Get edge list by individual
edges <- get_edge_list(Mod)
head(edges)
# Aggregate across individuals
agg_edges <- get_edge_list(Mod, by_individual = FALSE)
}
Run the code above in your browser using DataLab