pf <- matrix( c(1, 0, 0, 1), nr=2)
g <- preference.game(20, 2, pref.matrix=pf)
tkplot(g, layout=layout.fruchterman.reingold)
pf <- matrix( c(0, 1, 0, 0), nr=2)
g <- asymmetric.preference.game(20, 2, pref.matrix=pf)
tkplot(g, layout=layout.circle)
Run the code above in your browser using DataCamp Workspace