edges <- cbind(1:5, 2:6)
coords <- grip(edges, n = 6, dim = 2,
placement = "barycenter",
rounds = 5, final_rounds = 5,
num_init = 3, num_nbrs = 4,
seed = 1)
plot.layout(coords, edges, main = "Path graph", pch = 16, cex = 0.8)
Run the code above in your browser using DataLab