R/cell.list.dist.R

In EWCE: Expression Weighted Celltype Enrichment

# cell_dists is generated in the main_CellTypeAnalysis_Preperation.r file
cell.list.dist <- function(hitGenes,sct_data){
    ValidGenes = rownames(sct_data$cell_dists)[rownames(sct_data$cell_dists) %in% hitGenes]
    temp = sct_data$cell_dists[ValidGenes,]
    return(apply(temp,2,sum))
}