Lists of iGraph Networks

clean_edgelists.R

library(dplyr)
library(igraph)

clean_graph <- function(teamID, el) {
  e <- el %>%  filter(id == teamID) %>%
    select(source, target)
  g <- graph_from_data_frame(e) %>%
    as.undirected(mode = 'collapse', edge.attr.comb = 'max') %>%
    simplify
  return(g)
}