powered by
find_tips(dm_or_dpt, root = random_root(dm_or_dpt))
DiffusionMap
DPT
data(guo) dm <- DiffusionMap(guo) is_tip <- l_which(find_tips(dm), len = ncol(dataset(dm))) plot(dm, col = factor(is_tip))
Run the code above in your browser using DataLab