example_data <- pGRNDB
expression_matrix <- example_data[["expression"]]
pseudotime_list <- example_data[["ptime"]]$PseudoTime
# try DTW method
nets <- pGRN(expression_matrix,
pseudotime_list,
method= "DTW",
quantile_cutoff=50,
cores=1)
plot_network(nets[[1]])
# plot the network interactively
plot_network_i(nets[[1]])
Run the code above in your browser using DataLab