Even a simple rooting doesnt work

[zouter]

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")