## -----------------------------------------------------------------------------
library(destiny)
data(guo)

## -----------------------------------------------------------------------------
dm_guo <- DiffusionMap(guo, verbose = FALSE,
                       censor_val = 15, censor_range = c(15, 40))
dm_guo

## -----------------------------------------------------------------------------
plot(dm_guo)

## -----------------------------------------------------------------------------
palette(cube_helix(6))
plot(dm_guo, col_by = 'num_cells',
     legend_main = 'Cell stage')