R/estimate_cell_comp.R

In cbreenmachine/Rray: Utility functions for analyzing EPIC 850K array data, to stay consistent across projects / platforms.

#' @export
estimate_cell_comp <- function(RGset){
  cellCounts <- FlowSorted.Blood.EPIC::estimateCellCounts2(RGset, compositeCellType="Blood", referencePlatform = "IlluminaHumanMethylationEPIC")
  cc.df <- as.data.frame(cellCounts)  %>% 
    rownames_to_column("ID") %>%
    rename_with( function(x) tolower(str_remove(x, "counts.")), starts_with("counts"))
  return(cc.df)
}