Create Edge List In R