edges <- edges.path(5)
cmp <- compare.layouts(edges, n = 5, dim = 2,
candidates = "default",
seeds = 1L)
params <- params.from.summary(cmp$summary[1, ])
coords <- do.call(
grip,
c(list(edges = edges, n = 5, dim = 2, seed = 42L), params)
)
round(coords, 2)
Run the code above in your browser using DataLab