inst/scripts/split_by_celltype.R

In HenrikBengtsson/TopDomStudy: TopDom Study by Segal et al.

options(width = 140)
progressr::handlers("progress")

## NOTES: 6 human + 2 mouse cell types takes ~40 minutes to complete
known_celltypes <- list(
  human = c("HAP1", "HeLa", "GM12878", "K562", "Asynchronous", "Nocadazole"),
  mouse = c("MEF", "Patski")
)

celltypes <- list(
  human = c("HAP1")
)

progressr::with_progress({
  res <- TopDomStudy::split_by_celltype(celltypes = celltypes, path = "compiledData")
})
print(res)