Diff of /man/extractPvalues.Rd [000000] .. [72a7c3]

Switch to side-by-side view

--- a
+++ b/man/extractPvalues.Rd
@@ -0,0 +1,44 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/enrichment_functions.R
+\name{extractPvalues}
+\alias{extractPvalues}
+\title{Create a reshaped data frame from multiGSEA output.}
+\usage{
+extractPvalues(enrichmentScores, pathwayNames)
+}
+\arguments{
+\item{enrichmentScores}{Nested List of enrichment scores, calculated by
+multiGSEA function.}
+
+\item{pathwayNames}{List containing Pathway names.}
+}
+\value{
+Data frame where rows are pathways and columns are (adjusted)
+  p-values for each omics layer.
+}
+\description{
+This function reshapes the output from multiGSEA to get a single data frame
+with columns for p-values and adjusted p-values for each omics layer. Each
+row of the data frame represents one pathway.
+}
+\examples{
+# Download pathway definition and extract features
+pathways <- getMultiOmicsFeatures(dbs = c("kegg"), layer = c("transcriptome", "proteome"))
+
+# load omics data and calculate ranks
+data(transcriptome)
+data(proteome)
+ranks <- initOmicsDataStructure(c("transcriptome", "proteome"))
+ranks$transcriptome <- rankFeatures(transcriptome$logFC, transcriptome$pValue)
+names(ranks$transcriptome) <- transcriptome$Symbol
+ranks$proteome <- rankFeatures(proteome$logFC, proteome$pValue)
+names(ranks$proteome) <- proteome$Symbol
+
+# run the enrichment
+es <- multiGSEA(pathways, ranks)
+
+extractPvalues(
+  enrichmentScores = es,
+  pathwayNames = names(pathways[[1]])
+)
+}