pf <- matrix( c(1, 0, 0, 1), nr=2)
g <- sample_pref(20, 2, pref.matrix=pf)
tkplot(g, layout=layout_with_fr)
pf <- matrix( c(0, 1, 0, 0), nr=2)
g <- sample_asym_pref(20, 2, pref.matrix=pf)
tkplot(g, layout=layout_in_circle)
Run the code above in your browser using DataLab