edges <- edges.path(5)
cmp <- compare.layouts(
edges = edges,
n = 5,
candidates = "default",
seeds = 1L,
return.layouts = TRUE
)
graph <- list(
adj_list = list(2L, c(1L, 3L), c(2L, 4L), c(3L, 5L), 4L)
)
project <- gripui_project_from_compare(cmp, graph = graph, title = "Path compare")
nrow(project$layouts)
Run the code above in your browser using DataLab