library(tibble)
dataset <- wrap_data(cell_ids = letters)
pseudotime <- tibble(
cell_id = dataset$cell_ids,
pseudotime = runif(length(dataset$cell_ids))
)
trajectory <- add_linear_trajectory(dataset, pseudotime)
Run the code above in your browser using DataLab