## Data subsampling: create indices by sample

## How many cells to downsample per-sample

tsne_inds <- lapply(names(inds), function(i){
  s <- sample(inds[[i]], tsne_ncells[i], replace = FALSE)
  intersect(s, dups)
})