FastSEAscore | R Documentation |
The function 'FastSEAscore' is used to calculate the pathway enrichment score.
FastSEAscore(labels.list, correl_vector)
labels.list |
The position of the genes in the pathway in the ranked gene list . |
correl_vector |
A ranked list of all genes in the PPI network. |
Enrichment scores of pathways based on predefined gene ranked lists.
#load the data
pathway_path<-system.file("extdata","kegg_323_gmt.Rdata",package = "ssMutPA")
load(pathway_path)
pathway_list<-split(kegg_323_gmt[,2],kegg_323_gmt[,1])
data(RWR_res)
gene_list<-sort(RWR_res,decreasing=TRUE)
tag.indicator <- sign(match(names(gene_list), pathway_list[[1]], nomatch = 0))
#perform the function `FastSEAscore`.
Path_ES<-FastSEAscore(labels.list=tag.indicator,correl_vector = gene_list)
names(Path_ES)<-names(pathway_list)[1]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.