# Downsample to 20 cells per identity
small_set <- downsample(example_phyex_set_sc, downsample = 20)
# Change grouping and downsample
example_phyex_set_sc@selected_idents <- "day"
treatment_set <- downsample(example_phyex_set_sc, downsample = 15)
Run the code above in your browser using DataLab