trajectory <- wrap_data(cell_ids = "a") %>%
add_trajectory(
milestone_network = tibble(from = c("2", "1", "4", "3"), to = c("1", "4", "3", "5"), length = 1, directed = TRUE),
progressions = tibble(cell_id = "a", from = "2", to = "1", percentage = 0)
)
add_root(trajectory, root_milestone_id = "5")
