Defines functions return_agg_gene

Documented in return_agg_gene

#' Normalization
#' This function will perform normalization of your data
#' @param input the input ex_sc
#' @export
#' @details
#' If the method is ICA, independent component analysis will be performed, and then tSNE will do the final dimension reduction. If PCA is selected, PCA will be performed before on the expression matrix transpose before tSNE. This PCA will use the cells positions on the principal components. If iPCA is selected, PCA will be be performed but without transposing the data. This will create "meta cells" instead of meta genes created in the typical PCA. Then tSNE will be performed on each cells contribution (loading) to the meta cell. We find that iPCA is much more robust and leads to cleaner clusters than traditional PCA.
#' @examples
#' ex_sc_example <- dim_reduce(input = ex_sc_example, genelist = gene_subset, pre_reduce = "iPCA", nComp = 15, tSNE_perp = 30, iterations = 500, print_progress=TRUE)
return_agg_gene <- function(input){
  ind <- which(fData(input)$agg_gene != FALSE)
  genes <- fData(input)$agg_gene[ind]
  gene_name <- rownames(fData(input))[ind]
  dat <- data.frame(gene_name, genes)
kgellatl/SignallingSingleCell documentation built on Dec. 29, 2021, 4:12 p.m.