Finds a cell that has the maximum DPT distance from a randomly selected one.
random_root(dm_or_dpt)
dm_or_dpt
A DiffusionMap or DPT object
DiffusionMap
DPT
A cell index
data(guo) dm <- DiffusionMap(guo) random_root(dm)