R/subcell.list.dist.R

In EWCE: Expression Weighted Celltype Enrichment

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