trajectory <- example_trajectory
tde_overall <- tibble::tibble(
feature_id = trajectory$feature_info$feature_id,
differentially_expressed = sample(c(TRUE, FALSE), length(feature_id), replace = TRUE)
)
trajectory <- add_tde_overall(trajectory, tde_overall)
trajectory$tde_overall
Run the code above in your browser using DataLab