example_data <- pGRNDB
expression_matrix <- example_data[["expression"]]
pseudotime_list <- example_data[["ptime"]]$PseudoTime
adj_df <- run_dtw(expression_matrix,
pseudotime_list,
quantile_cutoff=50,
cores=1)
Run the code above in your browser using DataLab