Hartelijk dank voor uw reactie. Ik had het probleem zelf ook gevonden , maar ik ben nog niet zo ervaren in Mathematica dus ik had alle dubbele met de hand opgespoord en eruit gegooid. Daar ben ik wel even mee bezig geweest ! Uw oplossing is fraai gevonden en ik ben er bijzonder blij mee.
Met vriendelijke groet, Chiel Geeraert
Beste Chiel, You're welcome! In amsterdam and Antwerpen there are some very good free training sessions on learning to program with mathematica. You can check the website from candiensten in NL. That is if you're located in NL or BE. Have fun! met vriendelijke groet, lou
Beste Chiel, You have duplicate edges in your set. I used:
data3 = DirectedEdge[#[[1]], #[[2]]] & /@ data2 // DeleteDuplicates
Then for fun:
CommunityGraphPlot[data3]
I hope this helps,
Lou
