View source: R/statistic-viper.R
run_viper | R Documentation |
Calculates regulatory activities using VIPER.
run_viper(
mat,
network,
.source = source,
.target = target,
.mor = mor,
.likelihood = likelihood,
verbose = FALSE,
minsize = 5,
pleiotropy = TRUE,
eset.filter = FALSE,
...
)
mat |
Matrix to evaluate (e.g. expression matrix).
Target nodes in rows and conditions in columns.
|
network |
Tibble or dataframe with edges and it's associated metadata. |
.source |
Column with source nodes. |
.target |
Column with target nodes. |
.mor |
Column with edge mode of regulation (i.e. mor). |
.likelihood |
Deprecated argument. Now it will always be set to 1. |
verbose |
Logical, whether progression messages should be printed in the terminal. |
minsize |
Integer indicating the minimum number of targets per source. |
pleiotropy |
Logical, whether correction for pleiotropic regulation should be performed. |
eset.filter |
Logical, whether the dataset should be limited only to the genes represented in the interactome. |
... |
Arguments passed on to
|
VIPER (Alvarez et al., 2016) estimates biological activities by performing a three-tailed enrichment score calculation. For further information check the supplementary information of the decoupler manuscript or the original publication.
Alvarez M.J.et al. (2016) Functional characterization of somatic mutations in cancer using network-based inference of protein activity. Nat. Genet., 48, 838–847.
A long format tibble of the enrichment scores for each source across the samples. Resulting tibble contains the following columns:
statistic
: Indicates which method is associated with which score.
source
: Source nodes of network
.
condition
: Condition representing each column of mat
.
score
: Regulatory activity (enrichment score).
Other decoupleR statistics:
decouple()
,
run_aucell()
,
run_fgsea()
,
run_gsva()
,
run_mdt()
,
run_mlm()
,
run_ora()
,
run_udt()
,
run_ulm()
,
run_wmean()
,
run_wsum()
inputs_dir <- system.file("testdata", "inputs", package = "decoupleR")
mat <- readRDS(file.path(inputs_dir, "mat.rds"))
net <- readRDS(file.path(inputs_dir, "net.rds"))
run_viper(mat, net, minsize=0, verbose = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.