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