Update edgelist_creation.R