Closed zouter closed 4 years ago
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")