# RIVER

Yungil Kim

#### 1 November 2022

#### Abstract

A probabilistic modeling framework that jointly analyzes personal genome and transcriptome data to estimate the probability that a variant has regulatory impact in that individual.

#### Package

RIVER 1.22.0

# Contents

# 1 Introduction

`RIVER` is an `R` package of a probabilistic modeling framework, called RIVER (RNA-Informed Variant Effect on Regulation), that jointly analyzes personal genome (WGS) and transcriptome data (RNA-seq) to estimate the probability that a variant has regulatory impact in that individual. It is based on a generative model that assumes that genomic annotations, such as the location of a variant with respect to regulatory elements, determine the prior probability that variant is a functional regulatory variant, which is an unobserved variable. The functional regulatory variant status then influences whether nearby genes are likely to display outlier levels of gene expression in that person.

RIVER is a hierarchical Bayesian model that predicts the regulatory effects of rare variants by integrating gene expression with genomic annotations. The RIVER consists of three layers: a set of nodes \(G = G_{1}, ..., G_{P}\) in the topmost layer representing \(P\) observed genomic annotations over all rare variants near a particular gene, a latent binary variable \(FR\) in the middle layer representing the unobserved funcitonal regulatory status of the rare variants, and one binary node \(E\) in the final layer representing expression outlier status of the nearby gene. We model each conditional probability distribution as follows: \[ FR | G \sim Bernoulli(\psi), \psi = logit^{-1}(\beta^T, G) \] \[E | FR \sim Categorical(\theta_{FR}) \] \[ \beta_i \sim N(0, \frac{1}{\lambda})\] \[\theta_{FR} \sim Beta(C,C)\] with parameters \(\beta\) and \(\theta\) and hyper-parameters \(\lambda\) and \(C\).

Because \(FR\) is unobserved, log-likelihood objective of RIVER over instances \(n = 1, ..., N\), \[ \sum_{n=1}^{N} log\sum_{FR_n= 0}^{1} P(E_n, G_n, FR_n | \beta, \theta), \] is non-convex. We therefore optimize model parameters via Expectation-Maximization (EM) as follows:

In the E-step, we compute the posterior probabilities (\(\omega_n^{(i)}\)) of the latent variables \(FR_n\) given current parameters and observed data. For example, at the \(i\)-th iteration, the posterior probability of \(FR_n = 1\) for the \(n\)-th instance is \[ \omega_{1n}^{(i)} = P(FR_n = 1 | G_n, \beta^{(i)}, E_n, \theta^{(i)}) =\frac{P(FR_n = 1 | G_n, \beta^{(i)}) \cdotp P(E_n | FR_n = 1, \theta^{(i)})}{\sum_{FR_n = 0}^1 P(FR_n | G_n, \beta^{(i)}) \cdotp P(E_n | FR_n, \theta^{(i)})}, \] \[\omega_{0n}^{(i)} = 1 - \omega_{1n}^{(i)}.\]

In the M-step, at the \(i\)-th iteration, given the current estimates \(\omega^{(i)}\), the parameters (\(\beta^{(i+1)*}\)) are estimated as \[ \max_{\beta^{(i+1)}} \sum_{n = 1}^N \sum_{FR_n = 0}^1 log(P(FR_n | G_n, \beta^{(i+1)})) \cdotp \omega_{FR, n}^{(i)} - \frac{\lambda}{2}||\beta^{(i+1)}||_2, \] where \(\lambda\) is an L2 penalty hyper-parameter derived from the Gaussian prior on \(\beta\). The parameters \(\theta\) get updated as: \[ \theta_{s,t}^{(i+1)} = \sum_{n = 1}^{N} I(E_n = t) \cdotp \omega_{s,n}^{(i)} + C. \] where \(I\) is an indicator operator, \(t\) is the binary value of expression \(E_n\), \(s\) is the possible binary values of \(FR_n\) and \(C\) is a pseudo count derived from the Beta prior on . The E- and M-steps are applied iteratively until convergence.

Back to Top

# 2 Quick Start

The purpose of this section is to provide users a general sense of our package, `RIVER`, including components and their behaviors and applications. We will briefly go over main functions, observe basic operations and corresponding outcomes. Throughout this section, users may have better ideas about which functions are available, which values to be chosen for necessary parameters, and where to seek help. More detailed descriptions are given in later sections.

First, we load `RIVER`:

    library("RIVER")

`RIVER` consists of several functions mainly supporting two main functions including `evaRIVER` and `appRIVER`, which we are about to show how to use them here. We first load simulated data created beforehand for illustration.

    filename <- system.file("extdata", "simulation_RIVER.gz",
                           package="RIVER")
    dataInput <- getData(filename) # import experimental data

`getData` combines different resources including genomic features, outlier status of gene expression, and N2 pairs having same rare variants into standardized data structures, called `ExpressionSet` class.

    print(dataInput)

    ## ExpressionSet (storageMode: lockedEnvironment)
    ## assayData: 18 features, 6122 samples
    ##   element names: exprs
    ## protocolData: none
    ## phenoData
    ##   sampleNames: indiv58:gene1614 indiv5:gene1331 ... indiv18:gene1111
    ##     (6122 total)
    ##   varLabels: Outlier N2pair
    ##   varMetadata: labelDescription
    ## featureData: none
    ## experimentData: use 'experimentData(object)'
    ## Annotation:

    Feat <- t(Biobase::exprs(dataInput)) # genomic features (G)
    Out <- as.numeric(unlist(dataInput$Outlier))-1 # outlier status (E)

In the simulated data, an input object `dataInput` consists of 18 genomic features and expression outlier status of 6122 samples and which samples belong to N2 pairs.

    head(Feat)

    ##                    Feature1   Feature2   Feature3   Feature4   Feature5
    ## indiv58:gene1614  0.4890338 -1.2143183 -0.5015241 -0.8093881 -0.1916957
    ## indiv5:gene1331  -4.1665487 -0.6355490 -1.0914989 -2.8069442 -0.3921658
    ## indiv76:gene447  -0.4469724 -0.9440314  0.7386942  0.6786997  0.6043647
    ## indiv16:gene126   1.6252083 -2.2686506  1.4156013 -0.5662072 -0.1405224
    ## indiv45:gene1044  0.3086791  1.0044798  0.8493856  0.3515569 -0.3763434
    ## indiv6:gene258    0.9046627  1.7618399 -1.6258895  0.3961724 -0.2203089
    ##                     Feature6   Feature7   Feature8   Feature9   Feature10
    ## indiv58:gene1614 -0.06614698  0.1993153 -0.7544253 -1.3505036 -0.03477715
    ## indiv5:gene1331  -0.43831006  1.8175888 -0.8411557  2.1495237 -0.48691686
    ## indiv76:gene447   1.47627930  0.6521233 -0.6416004  1.0309900 -0.38262446
    ## indiv16:gene126   2.11676989  1.0670951  0.3404799 -1.5970916 -0.49910751
    ## indiv45:gene1044  1.45269690 -0.8368466 -1.0016646  0.1908291 -0.26598159
    ## indiv6:gene258   -0.76821018 -1.3436283 -0.7201516  0.5440035  0.31006097
    ##                   Feature11  Feature12   Feature13  Feature14  Feature15
    ## indiv58:gene1614 2.08675352  0.7283183  0.15074710  1.5183579  0.2226134
    ## indiv5:gene1331  2.57339374  0.4840111  0.58897093 -0.2069596  0.1000502
    ## indiv76:gene447  0.30621172  0.6690835 -1.39701213  1.4853201  1.6552545
    ## indiv16:gene126  0.58599041 -0.7052013 -0.07715282 -1.3326831  0.1719152
    ## indiv45:gene1044 1.45029299 -0.4530850 -0.09610983  1.4731617 -0.9372256
    ## indiv6:gene258   0.05174989  0.4026417 -0.50911462 -0.3623563 -2.5279770
    ##                    Feature16  Feature17  Feature18
    ## indiv58:gene1614  1.88846321 -0.4408236 -0.4558111
    ## indiv5:gene1331   0.22640429  1.2535793 -1.0163254
    ## indiv76:gene447   0.71720775  0.2758493  1.1378452
    ## indiv16:gene126   1.12919669  0.6166061 -1.6069772
    ## indiv45:gene1044  0.14794114  1.2241711  1.4916670
    ## indiv6:gene258   -0.01574568 -1.5835940 -1.2366762

    head(Out)

    ## [1] 1 1 1 0 1 1

`Feat` contains continuous values of genomic features (defined as \(G\) in the objective function) while `Out` contains binary values representing outlier status of same samples as `Feat` (defined as \(E\) in the objective function).

For evaluation, we hold out pairs of individuals at genes where only those two individuals shared the same rare variants. Except for the list of instances, we train RIVER with the rest of instances, compute the RIVER score (the posterior probability of having a functional regulatory variant given both WGS and RNA-seq data) from one individual, and assess the accuracy with respect to the second individual’s held-out expression levels. Since there is currently quite few gold standard set of functional rare variants, using this labeled test data allow us to evaluate predictive accuracy of RIVER compared with genomic annotation model, GAM, that uses genomic annotations alone. We can observe a significant improvement by incorporating expression data.

To do so, we simply use `evaRIVER`:

    evaROC <- evaRIVER(dataInput)

    ##  ::: EM iteration is terminated since it converges within a
    ##         predefined tolerance (0.001) :::

    ## Setting levels: control = 0, case = 1

    ## Setting direction: controls < cases

    ## Setting levels: control = 0, case = 1

    ## Setting direction: controls < cases

`evaROC` is an S4 object of class `evaRIVER` which contains two AUC values from RIVER and GAM, specificity and sensitivity measures from the two models, and p-value of comparing the two AUC values.

    cat('AUC (GAM-genomic annotation model) = ', round(evaROC$GAM_auc,3), '\n')

    ## AUC (GAM-genomic annotation model) =  0.58

    cat('AUC (RIVER) = ', round(evaROC$RIVER_auc,3), '\n')

    ## AUC (RIVER) =  0.8

    cat('P-value ', format.pval(evaROC$pvalue, digits=2, eps=0.001), '***\n')

    ## P-value  <0.001 ***

We can visualize the ROC curves with AUC values:

    par(mar=c(6.1, 6.1, 4.1, 4.1))
    plot(NULL, xlim=c(0,1), ylim=c(0,1),
         xlab="False positive rate", ylab="True positive rate",
         cex.axis=1.3, cex.lab=1.6)
    abline(0, 1, col="gray")
    lines(1-evaROC$RIVER_spec, evaROC$RIVER_sens,
          type="s", col='dodgerblue', lwd=2)
    lines(1-evaROC$GAM_spec, evaROC$GAM_sens,
          type="s", col='mediumpurple', lwd=2)
    legend(0.7,0.2,c("RIVER","GAM"), lty=c(1,1), lwd=c(2,2),
           col=c("dodgerblue","mediumpurple"), cex=1.2,
           pt.cex=1.2, bty="n")
    title(main=paste("AUC: RIVER = ", round(evaROC$RIVER_auc,3),
                     ", GAM = ", round(evaROC$GAM_auc,3),
                     ", P = ", format.pval(evaROC$pvalue, digits=2,
                                           eps=0.001),sep=""))

Each ROC curve from either RIVER or GAM is computed by comparing the posterior probability given available data for the 1st individual with the outlier status of the 2nd individual in the list of held-out pairs and vice versa.

To extract posterior probabilities for prioritizing functional rare variants in any downstream analysis such as finding pathogenic rare variants in disease, you simply run `appRIVER` to obtain the posterior probabilities:

    postprobs <- appRIVER(dataInput)

    ##  ::: EM iteration is terminated since it converges within a
    ##         predefined tolerance (0.001) :::

`postprobs` is an S4 object of class `appRIVER` which contains subject IDs, gene names, \(P(FR = 1 | G)\), \(P(FR = 1 | G, E)\), and `fitRIVER`, all the relevant information of the fitted RIVER including hyperparamters for further use.

Probabilities of rare variants being functional from RIVER and GAM for a few samples are shown below:

    example_probs <- data.frame(Subject=postprobs$indiv_name,
                               Gene=postprobs$gene_name,
                               RIVERpp=postprobs$RIVER_posterior,
                               GAMpp=postprobs$GAM_posterior)
    head(example_probs)

    ##   Subject     Gene   RIVERpp     GAMpp
    ## 1 indiv58 gene1614 0.4303673 0.2319994
    ## 2  indiv5 gene1331 0.3597397 0.1939262
    ## 3 indiv76  gene447 0.5249447 0.3061179
    ## 4 indiv16  gene126 0.1316062 0.2447880
    ## 5 indiv45 gene1044 0.4488103 0.2370526
    ## 6  indiv6  gene258 0.3598831 0.1714101

From left to right, it shows subject ID, gene name, posterior probabilities from RIVER, posterior probabilities from GAM.

To observe how much we can obtain additional information on functional rare variants by integrating the outlier status of gene expression into RIVER in the following figure.

    plotPosteriors(postprobs, outliers=as.numeric(unlist(dataInput$Outlier))-1)

As shown in this figure, the integration of both genomic features and expression outliers indeed provide higher quantitative power for prioritizing functional rare variants. You can observe a few examples of pathogenic regulatory variants based on posterior probabilities from RIVER in our paper (http://biorxiv.org/content/early/2016/09/09/074443).

Back to Top

# 3 Two Main Functions

## 3.1 Evaluation of RIVER

The function, `evaRIVER`, is to see how much we can gain additional information by integrating an outlier status of gene expression into integrated models. The prioritization of functional rare variants has difficulty in its evaluation especially due to no gold standard class of the functionality of rare variants. To come up with this limitation, we extract pairs of individuals for genes having same rare variants and hold them out for the evaluation. In other words, we train RIVER with all the instances except for those held-out pairs of individuals, calculate posterior probabilities of functional regulatory variants given genomic features and outlier status for the first individual, and compare the probabilities with the second individual’s outlier status and vice versa. You can simply observe how the entire steps of evaluating models including both RIVER and GAM proceed by using `evaRIVER` with `verbose=TRUE`:

    filename <- system.file("extdata", "simulation_RIVER.gz",
                           package="RIVER")
    dataInput <- getData(filename) # import experimental data
    evaROC <- evaRIVER(dataInput, pseudoc=50,
                       theta_init=matrix(c(.99, .01, .3, .7), nrow=2),
                       costs=c(100, 10, 1, .1, .01, 1e-3, 1e-4),
                       verbose=TRUE)

    ##  *** best lambda = 0.1 ***
    ##
    ##  *** RIVER: EM step 1
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.9523
    ##      M-step: norm(theta difference) = 0.1479, norm(beta difference) = 0.0081 ***
    ##
    ##  *** RIVER: EM step 2
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.918
    ##      M-step: norm(theta difference) = 0.0548, norm(beta difference) = 0.0099 ***
    ##
    ##  *** RIVER: EM step 3
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.8853
    ##      M-step: norm(theta difference) = 0.052, norm(beta difference) = 0.0103 ***
    ##
    ##  *** RIVER: EM step 4
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.8543
    ##      M-step: norm(theta difference) = 0.0492, norm(beta difference) = 0.0096 ***
    ##
    ##  *** RIVER: EM step 5
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.8248
    ##      M-step: norm(theta difference) = 0.0464, norm(beta difference) = 0.009 ***
    ##
    ##  *** RIVER: EM step 6
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.7972
    ##      M-step: norm(theta difference) = 0.0437, norm(beta difference) = 0.0084 ***
    ##
    ##  *** RIVER: EM step 7
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.7711
    ##      M-step: norm(theta difference) = 0.041, norm(beta difference) = 0.0077 ***
    ##
    ##  *** RIVER: EM step 8
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.7463
    ##      M-step: norm(theta difference) = 0.0383, norm(beta difference) = 0.0071 ***
    ##
    ##  *** RIVER: EM step 9
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.7235
    ##      M-step: norm(theta difference) = 0.0358, norm(beta difference) = 0.0066 ***
    ##
    ##  *** RIVER: EM step 10
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.7022
    ##      M-step: norm(theta difference) = 0.0333, norm(beta difference) = 0.0062 ***
    ##
    ##  *** RIVER: EM step 11
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.6821
    ##      M-step: norm(theta difference) = 0.031, norm(beta difference) = 0.0059 ***
    ##
    ##  *** RIVER: EM step 12
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.6633
    ##      M-step: norm(theta difference) = 0.0287, norm(beta difference) = 0.0056 ***
    ##
    ##  *** RIVER: EM step 13
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.6461
    ##      M-step: norm(theta difference) = 0.0266, norm(beta difference) = 0.0054 ***
    ##
    ##  *** RIVER: EM step 14
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.63
    ##      M-step: norm(theta difference) = 0.0246, norm(beta difference) = 0.0053 ***
    ##
    ##  *** RIVER: EM step 15
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.615
    ##      M-step: norm(theta difference) = 0.0227, norm(beta difference) = 0.0052 ***
    ##
    ##  *** RIVER: EM step 16
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.6009
    ##      M-step: norm(theta difference) = 0.0209, norm(beta difference) = 0.005 ***
    ##
    ##  *** RIVER: EM step 17
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5878
    ##      M-step: norm(theta difference) = 0.0192, norm(beta difference) = 0.0048 ***
    ##
    ##  *** RIVER: EM step 18
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5757
    ##      M-step: norm(theta difference) = 0.0177, norm(beta difference) = 0.0046 ***
    ##
    ##  *** RIVER: EM step 19
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5645
    ##      M-step: norm(theta difference) = 0.0163, norm(beta difference) = 0.0045 ***
    ##
    ##  *** RIVER: EM step 20
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5542
    ##      M-step: norm(theta difference) = 0.0149, norm(beta difference) = 0.0045 ***
    ##
    ##  *** RIVER: EM step 21
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5446
    ##      M-step: norm(theta difference) = 0.0137, norm(beta difference) = 0.0044 ***
    ##
    ##  *** RIVER: EM step 22
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5355
    ##      M-step: norm(theta difference) = 0.0126, norm(beta difference) = 0.0043 ***
    ##
    ##  *** RIVER: EM step 23
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5272
    ##      M-step: norm(theta difference) = 0.0115, norm(beta difference) = 0.0043 ***
    ##
    ##  *** RIVER: EM step 24
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5194
    ##      M-step: norm(theta difference) = 0.0106, norm(beta difference) = 0.0042 ***
    ##
    ##  *** RIVER: EM step 25
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5121
    ##      M-step: norm(theta difference) = 0.0097, norm(beta difference) = 0.0041 ***
    ##
    ##  *** RIVER: EM step 26
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5052
    ##      M-step: norm(theta difference) = 0.0088, norm(beta difference) = 0.004 ***
    ##
    ##  *** RIVER: EM step 27
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4988
    ##      M-step: norm(theta difference) = 0.0081, norm(beta difference) = 0.0038 ***
    ##
    ##  *** RIVER: EM step 28
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.493
    ##      M-step: norm(theta difference) = 0.0074, norm(beta difference) = 0.0037 ***
    ##
    ##  *** RIVER: EM step 29
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4873
    ##      M-step: norm(theta difference) = 0.0068, norm(beta difference) = 0.0036 ***
    ##
    ##  *** RIVER: EM step 30
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4821
    ##      M-step: norm(theta difference) = 0.0062, norm(beta difference) = 0.0034 ***
    ##
    ##  *** RIVER: EM step 31
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.477
    ##      M-step: norm(theta difference) = 0.0056, norm(beta difference) = 0.0033 ***
    ##
    ##  *** RIVER: EM step 32
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4722
    ##      M-step: norm(theta difference) = 0.0051, norm(beta difference) = 0.0031 ***
    ##
    ##  *** RIVER: EM step 33
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4678
    ##      M-step: norm(theta difference) = 0.0047, norm(beta difference) = 0.0029 ***
    ##
    ##  *** RIVER: EM step 34
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4635
    ##      M-step: norm(theta difference) = 0.0043, norm(beta difference) = 0.0028 ***
    ##
    ##  *** RIVER: EM step 35
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4596
    ##      M-step: norm(theta difference) = 0.0039, norm(beta difference) = 0.0027 ***
    ##
    ##  *** RIVER: EM step 36
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4558
    ##      M-step: norm(theta difference) = 0.0035, norm(beta difference) = 0.0025 ***
    ##
    ##  *** RIVER: EM step 37
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4523
    ##      M-step: norm(theta difference) = 0.0032, norm(beta difference) = 0.0024 ***
    ##
    ##  *** RIVER: EM step 38
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4489
    ##      M-step: norm(theta difference) = 0.0029, norm(beta difference) = 0.0022 ***
    ##
    ##  *** RIVER: EM step 39
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4457
    ##      M-step: norm(theta difference) = 0.0026, norm(beta difference) = 0.0021 ***
    ##
    ##  *** RIVER: EM step 40
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4426
    ##      M-step: norm(theta difference) = 0.0024, norm(beta difference) = 0.002 ***
    ##
    ##  *** RIVER: EM step 41
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4397
    ##      M-step: norm(theta difference) = 0.0021, norm(beta difference) = 0.0019 ***
    ##
    ##  *** RIVER: EM step 42
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4369
    ##      M-step: norm(theta difference) = 0.0019, norm(beta difference) = 0.0018 ***
    ##
    ##  *** RIVER: EM step 43
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4342
    ##      M-step: norm(theta difference) = 0.0017, norm(beta difference) = 0.0017 ***
    ##
    ##  *** RIVER: EM step 44
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4316
    ##      M-step: norm(theta difference) = 0.0015, norm(beta difference) = 0.0016 ***
    ##
    ##  *** RIVER: EM step 45
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4292
    ##      M-step: norm(theta difference) = 0.0014, norm(beta difference) = 0.0015 ***
    ##
    ##  *** RIVER: EM step 46
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4268
    ##      M-step: norm(theta difference) = 0.0012, norm(beta difference) = 0.0014 ***
    ##
    ##  *** RIVER: EM step 47
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4245
    ##      M-step: norm(theta difference) = 0.0011, norm(beta difference) = 0.0013 ***
    ##
    ##  *** RIVER: EM step 48
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4223
    ##      M-step: norm(theta difference) = 0.001, norm(beta difference) = 0.0013 ***
    ##
    ##  *** RIVER: EM step 49
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4202
    ##      M-step: norm(theta difference) = 8e-04, norm(beta difference) = 0.0012 ***
    ##
    ##  *** RIVER: EM step 50
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4181
    ##      M-step: norm(theta difference) = 7e-04, norm(beta difference) = 0.0011 ***
    ##
    ##  *** RIVER: EM step 51
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.416
    ##      M-step: norm(theta difference) = 7e-04, norm(beta difference) = 0.0011 ***
    ##
    ##  *** RIVER: EM step 52
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4141
    ##      M-step: norm(theta difference) = 8e-04, norm(beta difference) = 0.001 ***
    ##
    ##  *** RIVER: EM step 53
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4123
    ##      M-step: norm(theta difference) = 8e-04, norm(beta difference) = 0.001 ***
    ##
    ##  ::: EM iteration is terminated since it converges within a
    ##         predefined tolerance (0.001) :::

    ## Setting levels: control = 0, case = 1

    ## Setting direction: controls < cases

    ## Setting levels: control = 0, case = 1

    ## Setting direction: controls < cases

    ## *** AUC (GAM - genomic annotation model):  0.58
    ##     AUC (RIVER):  0.8
    ##      P-value:  <0.001 ***

`evaRIVER` requires a `ExpressionSet` class object containing genomic features, outlier status, and a list of N2 pairs as an input and four optional parameters including pseudo count, initial theta, a list of candidate \(\lambda\), and verbose. The input class is obtained by running `getData` with an original gzipped file. If you would like to know which format you should follow when generating the original compressed file, refer to the section 4 Generation of custumized data for RIVER below. Most of optional parameters are set according to your input data. The `pseudoc` is a hyperparameter for estimating `theta`, parameters between an unobserved `FR` node and observed outlier `E` node. Lower `pseudoc` provides higher reliance on observed data. The `theta_init` is an initial set of theta parameters. From left to right, the elements are \(P(E = 0 | FR = 0)\), \(P(E = 1 | FR = 0)\), \(P(E = 0 | FR = 1)\), and \(P(E = 1 | FR = 1)\), respecitively. The `costs` are the list of candidate \(\lambda\) for searching the best L2 penaly hyperparameter for both GAM and RIVER. For more information on optional paramters, see Appendix 5.1 for optional parameters and Appendix 5.2 for parameter stabilities across different initializations.

To train RIVER with training data (all instances except for N2 pairs), we first select best lambda value based on 10 cross-validation on training dataset via `glmnet`. You can see the selected \(\lambda\) parameter at the first line of output. The initial paramters of \(\beta\) in RIVER were set based on the estimated \(\beta\) parameters from GAM. In each EM iteration, the `evaRIVER` reports both the top 10 % threshold of expected \(P(FR = 1 | G, E)\) and norms of difference between previous and current estimates of parameters. The EM algorithm iteratively find best estimates of both \(\beta\) and \(\theta\) until it converges within the predefined tolerence of the norm (\(0.001\) for both \(\beta\) and \(\theta\)). After the estimates of paramters converge, `evaRIVER` reports AUC values from both models and its p-value of the difference between them.

Back to Top

## 3.2 Application of RIVER

The function, `appRIVER`, is to train RIVER (and GAM) with all instances and compute posterior probabilities of them for the future analyses (i.e. finding pathogenic rare variants in disease). Same as `evaRIVER`, this function also requires a `ExpressionSet` class object as an input and three optional parameters which you can set again based on your data. If you use a certain set of values for the optional parameters, you would use same ones here.

    postprobs <- appRIVER(dataInput, pseudoc=50,
                          theta_init=matrix(c(.99, .01, .3, .7), nrow=2),
                          costs=c(100, 10, 1, .1, .01, 1e-3, 1e-4),
                          verbose=TRUE)

    ##  *** best lambda = 0.01 ***
    ##
    ##  *** RIVER: EM step 1
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.9546
    ##      M-step: norm(theta difference) = 0.1526, norm(beta difference) = 0.0547 ***
    ##
    ##  *** RIVER: EM step 2
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.9222
    ##      M-step: norm(theta difference) = 0.0531, norm(beta difference) = 0.0486 ***
    ##
    ##  *** RIVER: EM step 3
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.8906
    ##      M-step: norm(theta difference) = 0.0511, norm(beta difference) = 0.0482 ***
    ##
    ##  *** RIVER: EM step 4
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.8602
    ##      M-step: norm(theta difference) = 0.0489, norm(beta difference) = 0.049 ***
    ##
    ##  *** RIVER: EM step 5
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.8306
    ##      M-step: norm(theta difference) = 0.0468, norm(beta difference) = 0.0501 ***
    ##
    ##  *** RIVER: EM step 6
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.8017
    ##      M-step: norm(theta difference) = 0.0445, norm(beta difference) = 0.051 ***
    ##
    ##  *** RIVER: EM step 7
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.7735
    ##      M-step: norm(theta difference) = 0.0422, norm(beta difference) = 0.0517 ***
    ##
    ##  *** RIVER: EM step 8
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.7462
    ##      M-step: norm(theta difference) = 0.0398, norm(beta difference) = 0.0521 ***
    ##
    ##  *** RIVER: EM step 9
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.7201
    ##      M-step: norm(theta difference) = 0.0373, norm(beta difference) = 0.0522 ***
    ##
    ##  *** RIVER: EM step 10
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.6955
    ##      M-step: norm(theta difference) = 0.0348, norm(beta difference) = 0.052 ***
    ##
    ##  *** RIVER: EM step 11
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.672
    ##      M-step: norm(theta difference) = 0.0321, norm(beta difference) = 0.0513 ***
    ##
    ##  *** RIVER: EM step 12
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.6491
    ##      M-step: norm(theta difference) = 0.0295, norm(beta difference) = 0.0503 ***
    ##
    ##  *** RIVER: EM step 13
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.6271
    ##      M-step: norm(theta difference) = 0.0267, norm(beta difference) = 0.0489 ***
    ##
    ##  *** RIVER: EM step 14
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.6058
    ##      M-step: norm(theta difference) = 0.024, norm(beta difference) = 0.0472 ***
    ##
    ##  *** RIVER: EM step 15
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5869
    ##      M-step: norm(theta difference) = 0.0213, norm(beta difference) = 0.0451 ***
    ##
    ##  *** RIVER: EM step 16
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5698
    ##      M-step: norm(theta difference) = 0.0186, norm(beta difference) = 0.0431 ***
    ##
    ##  *** RIVER: EM step 17
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5535
    ##      M-step: norm(theta difference) = 0.0161, norm(beta difference) = 0.0409 ***
    ##
    ##  *** RIVER: EM step 18
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5395
    ##      M-step: norm(theta difference) = 0.0136, norm(beta difference) = 0.0387 ***
    ##
    ##  *** RIVER: EM step 19
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5251
    ##      M-step: norm(theta difference) = 0.0113, norm(beta difference) = 0.0364 ***
    ##
    ##  *** RIVER: EM step 20
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.5118
    ##      M-step: norm(theta difference) = 0.0091, norm(beta difference) = 0.0343 ***
    ##
    ##  *** RIVER: EM step 21
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4999
    ##      M-step: norm(theta difference) = 0.0071, norm(beta difference) = 0.0322 ***
    ##
    ##  *** RIVER: EM step 22
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.488
    ##      M-step: norm(theta difference) = 0.0053, norm(beta difference) = 0.0306 ***
    ##
    ##  *** RIVER: EM step 23
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.477
    ##      M-step: norm(theta difference) = 0.0039, norm(beta difference) = 0.0296 ***
    ##
    ##  *** RIVER: EM step 24
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4668
    ##      M-step: norm(theta difference) = 0.0047, norm(beta difference) = 0.0285 ***
    ##
    ##  *** RIVER: EM step 25
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4572
    ##      M-step: norm(theta difference) = 0.0053, norm(beta difference) = 0.0274 ***
    ##
    ##  *** RIVER: EM step 26
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4478
    ##      M-step: norm(theta difference) = 0.0059, norm(beta difference) = 0.0264 ***
    ##
    ##  *** RIVER: EM step 27
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.439
    ##      M-step: norm(theta difference) = 0.0064, norm(beta difference) = 0.0255 ***
    ##
    ##  *** RIVER: EM step 28
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4314
    ##      M-step: norm(theta difference) = 0.0069, norm(beta difference) = 0.0246 ***
    ##
    ##  *** RIVER: EM step 29
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4242
    ##      M-step: norm(theta difference) = 0.0072, norm(beta difference) = 0.0237 ***
    ##
    ##  *** RIVER: EM step 30
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4176
    ##      M-step: norm(theta difference) = 0.0075, norm(beta difference) = 0.0229 ***
    ##
    ##  *** RIVER: EM step 31
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4112
    ##      M-step: norm(theta difference) = 0.0077, norm(beta difference) = 0.0222 ***
    ##
    ##  *** RIVER: EM step 32
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.4051
    ##      M-step: norm(theta difference) = 0.0079, norm(beta difference) = 0.0215 ***
    ##
    ##  *** RIVER: EM step 33
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3988
    ##      M-step: norm(theta difference) = 0.008, norm(beta difference) = 0.0208 ***
    ##
    ##  *** RIVER: EM step 34
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3935
    ##      M-step: norm(theta difference) = 0.008, norm(beta difference) = 0.0202 ***
    ##
    ##  *** RIVER: EM step 35
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3874
    ##      M-step: norm(theta difference) = 0.0081, norm(beta difference) = 0.0196 ***
    ##
    ##  *** RIVER: EM step 36
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3818
    ##      M-step: norm(theta difference) = 0.008, norm(beta difference) = 0.019 ***
    ##
    ##  *** RIVER: EM step 37
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3768
    ##      M-step: norm(theta difference) = 0.0079, norm(beta difference) = 0.0185 ***
    ##
    ##  *** RIVER: EM step 38
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3711
    ##      M-step: norm(theta difference) = 0.0078, norm(beta difference) = 0.018 ***
    ##
    ##  *** RIVER: EM step 39
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3651
    ##      M-step: norm(theta difference) = 0.0077, norm(beta difference) = 0.0175 ***
    ##
    ##  *** RIVER: EM step 40
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3592
    ##      M-step: norm(theta difference) = 0.0075, norm(beta difference) = 0.017 ***
    ##
    ##  *** RIVER: EM step 41
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3538
    ##      M-step: norm(theta difference) = 0.0073, norm(beta difference) = 0.0165 ***
    ##
    ##  *** RIVER: EM step 42
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3492
    ##      M-step: norm(theta difference) = 0.0071, norm(beta difference) = 0.016 ***
    ##
    ##  *** RIVER: EM step 43
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3423
    ##      M-step: norm(theta difference) = 0.0069, norm(beta difference) = 0.0156 ***
    ##
    ##  *** RIVER: EM step 44
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3373
    ##      M-step: norm(theta difference) = 0.0067, norm(beta difference) = 0.0152 ***
    ##
    ##  *** RIVER: EM step 45
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3323
    ##      M-step: norm(theta difference) = 0.0065, norm(beta difference) = 0.0148 ***
    ##
    ##  *** RIVER: EM step 46
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.327
    ##      M-step: norm(theta difference) = 0.0062, norm(beta difference) = 0.0144 ***
    ##
    ##  *** RIVER: EM step 47
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3227
    ##      M-step: norm(theta difference) = 0.006, norm(beta difference) = 0.014 ***
    ##
    ##  *** RIVER: EM step 48
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.319
    ##      M-step: norm(theta difference) = 0.0057, norm(beta difference) = 0.0136 ***
    ##
    ##  *** RIVER: EM step 49
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3146
    ##      M-step: norm(theta difference) = 0.0055, norm(beta difference) = 0.0132 ***
    ##
    ##  *** RIVER: EM step 50
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3115
    ##      M-step: norm(theta difference) = 0.0052, norm(beta difference) = 0.0127 ***
    ##
    ##  *** RIVER: EM step 51
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3077
    ##      M-step: norm(theta difference) = 0.005, norm(beta difference) = 0.0123 ***
    ##
    ##  *** RIVER: EM step 52
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.304
    ##      M-step: norm(theta difference) = 0.0047, norm(beta difference) = 0.0118 ***
    ##
    ##  *** RIVER: EM step 53
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.3005
    ##      M-step: norm(theta difference) = 0.0045, norm(beta difference) = 0.0114 ***
    ##
    ##  *** RIVER: EM step 54
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2972
    ##      M-step: norm(theta difference) = 0.0043, norm(beta difference) = 0.011 ***
    ##
    ##  *** RIVER: EM step 55
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2943
    ##      M-step: norm(theta difference) = 0.004, norm(beta difference) = 0.0105 ***
    ##
    ##  *** RIVER: EM step 56
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.292
    ##      M-step: norm(theta difference) = 0.0038, norm(beta difference) = 0.0101 ***
    ##
    ##  *** RIVER: EM step 57
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.289
    ##      M-step: norm(theta difference) = 0.0036, norm(beta difference) = 0.0097 ***
    ##
    ##  *** RIVER: EM step 58
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2866
    ##      M-step: norm(theta difference) = 0.0034, norm(beta difference) = 0.0093 ***
    ##
    ##  *** RIVER: EM step 59
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.284
    ##      M-step: norm(theta difference) = 0.0032, norm(beta difference) = 0.0089 ***
    ##
    ##  *** RIVER: EM step 60
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2811
    ##      M-step: norm(theta difference) = 0.0031, norm(beta difference) = 0.0085 ***
    ##
    ##  *** RIVER: EM step 61
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2784
    ##      M-step: norm(theta difference) = 0.0029, norm(beta difference) = 0.0081 ***
    ##
    ##  *** RIVER: EM step 62
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2758
    ##      M-step: norm(theta difference) = 0.0027, norm(beta difference) = 0.0077 ***
    ##
    ##  *** RIVER: EM step 63
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2734
    ##      M-step: norm(theta difference) = 0.0026, norm(beta difference) = 0.0073 ***
    ##
    ##  *** RIVER: EM step 64
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2711
    ##      M-step: norm(theta difference) = 0.0024, norm(beta difference) = 0.0069 ***
    ##
    ##  *** RIVER: EM step 65
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2698
    ##      M-step: norm(theta difference) = 0.0023, norm(beta difference) = 0.0066 ***
    ##
    ##  *** RIVER: EM step 66
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2677
    ##      M-step: norm(theta difference) = 0.0021, norm(beta difference) = 0.0063 ***
    ##
    ##  *** RIVER: EM step 67
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2657
    ##      M-step: norm(theta difference) = 0.002, norm(beta difference) = 0.0059 ***
    ##
    ##  *** RIVER: EM step 68
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2637
    ##      M-step: norm(theta difference) = 0.0019, norm(beta difference) = 0.0056 ***
    ##
    ##  *** RIVER: EM step 69
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2626
    ##      M-step: norm(theta difference) = 0.0018, norm(beta difference) = 0.0053 ***
    ##
    ##  *** RIVER: EM step 70
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2612
    ##      M-step: norm(theta difference) = 0.0017, norm(beta difference) = 0.005 ***
    ##
    ##  *** RIVER: EM step 71
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2599
    ##      M-step: norm(theta difference) = 0.0016, norm(beta difference) = 0.0048 ***
    ##
    ##  *** RIVER: EM step 72
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2587
    ##      M-step: norm(theta difference) = 0.0015, norm(beta difference) = 0.0045 ***
    ##
    ##  *** RIVER: EM step 73
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2575
    ##      M-step: norm(theta difference) = 0.0014, norm(beta difference) = 0.0043 ***
    ##
    ##  *** RIVER: EM step 74
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2565
    ##      M-step: norm(theta difference) = 0.0013, norm(beta difference) = 0.004 ***
    ##
    ##  *** RIVER: EM step 75
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2555
    ##      M-step: norm(theta difference) = 0.0012, norm(beta difference) = 0.0038 ***
    ##
    ##  *** RIVER: EM step 76
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2543
    ##      M-step: norm(theta difference) = 0.0011, norm(beta difference) = 0.0036 ***
    ##
    ##  *** RIVER: EM step 77
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2534
    ##      M-step: norm(theta difference) = 0.0011, norm(beta difference) = 0.0034 ***
    ##
    ##  *** RIVER: EM step 78
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2526
    ##      M-step: norm(theta difference) = 0.001, norm(beta difference) = 0.0032 ***
    ##
    ##  *** RIVER: EM step 79
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2517
    ##      M-step: norm(theta difference) = 9e-04, norm(beta difference) = 0.003 ***
    ##
    ##  *** RIVER: EM step 80
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2509
    ##      M-step: norm(theta difference) = 9e-04, norm(beta difference) = 0.0028 ***
    ##
    ##  *** RIVER: EM step 81
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2501
    ##      M-step: norm(theta difference) = 8e-04, norm(beta difference) = 0.0027 ***
    ##
    ##  *** RIVER: EM step 82
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2493
    ##      M-step: norm(theta difference) = 8e-04, norm(beta difference) = 0.0025 ***
    ##
    ##  *** RIVER: EM step 83
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2485
    ##      M-step: norm(theta difference) = 7e-04, norm(beta difference) = 0.0024 ***
    ##
    ##  *** RIVER: EM step 84
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2478
    ##      M-step: norm(theta difference) = 7e-04, norm(beta difference) = 0.0022 ***
    ##
    ##  *** RIVER: EM step 85
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2472
    ##      M-step: norm(theta difference) = 6e-04, norm(beta difference) = 0.0021 ***
    ##
    ##  *** RIVER: EM step 86
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2466
    ##      M-step: norm(theta difference) = 6e-04, norm(beta difference) = 0.002 ***
    ##
    ##  *** RIVER: EM step 87
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.246
    ##      M-step: norm(theta difference) = 6e-04, norm(beta difference) = 0.0019 ***
    ##
    ##  *** RIVER: EM step 88
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2454
    ##      M-step: norm(theta difference) = 5e-04, norm(beta difference) = 0.0017 ***
    ##
    ##  *** RIVER: EM step 89
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2449
    ##      M-step: norm(theta difference) = 5e-04, norm(beta difference) = 0.0016 ***
    ##
    ##  *** RIVER: EM step 90
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2444
    ##      M-step: norm(theta difference) = 5e-04, norm(beta difference) = 0.0015 ***
    ##
    ##  *** RIVER: EM step 91
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2439
    ##      M-step: norm(theta difference) = 4e-04, norm(beta difference) = 0.0015 ***
    ##
    ##  *** RIVER: EM step 92
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2435
    ##      M-step: norm(theta difference) = 4e-04, norm(beta difference) = 0.0014 ***
    ##
    ##  *** RIVER: EM step 93
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2431
    ##      M-step: norm(theta difference) = 4e-04, norm(beta difference) = 0.0013 ***
    ##
    ##  *** RIVER: EM step 94
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2427
    ##      M-step: norm(theta difference) = 3e-04, norm(beta difference) = 0.0012 ***
    ##
    ##  *** RIVER: EM step 95
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2424
    ##      M-step: norm(theta difference) = 3e-04, norm(beta difference) = 0.0011 ***
    ##
    ##  *** RIVER: EM step 96
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2421
    ##      M-step: norm(theta difference) = 3e-04, norm(beta difference) = 0.0011 ***
    ##
    ##  *** RIVER: EM step 97
    ##      E-step: Top 10 % Threshold of expected P(FR=1 | G, E): 0.2418
    ##      M-step: norm(theta difference) = 3e-04, norm(beta difference) = 0.001 ***
    ##
    ##  ::: EM iteration is terminated since it converges within a
    ##         predefined tolerance (0.001) :::

Like the reported procedures from `evaRIVER`, we can recognize which \(\lambda\) is set and variant top 10 % threshold of expected \(P(FR = 1 | G, E)\) and norms of difference during each of EM iteractions.

If you would like to observe estimated parameters associated with genomic features (\(\beta\)) and outliers (\(\theta\)), you can simply use `print` for the corresponding parameters of interest.

    print(postprobs$fitRIVER$beta)

    ##     Feature1     Feature2     Feature3     Feature4     Feature5     Feature6
    ##  0.212758452 -0.009811175  0.212477727  0.575642056  0.196224079  0.136402825
    ##     Feature7     Feature8     Feature9    Feature10    Feature11    Feature12
    ##  0.285321818 -0.043787765  0.125900700 -0.015828941  0.009017689  0.081281666
    ##    Feature13    Feature14    Feature15    Feature16    Feature17    Feature18
    ## -0.030644776  0.205450094  0.125244369 -0.011322185 -0.011247446 -0.009167409

    print(postprobs$fitRIVER$theta)

    ##         [,1]      [,2]
    ## [1,] 0.81851 0.3191551
    ## [2,] 0.18149 0.6808449

These parameters can be used for computing test posterior probabilities of new instances given their \(G\) and \(E\) for further analyses.

Back to Top

# 4 Generation of custumized data for RIVER

An original compressed file, generated from all necessary processed data including genomic features from various genomic annotations, Z-scores from gene expression, and a list of N2 pairs based on WGS, contains all the information.

    filename <- system.file("extdata", "simulation_RIVER.gz",
                           package = "RIVER")
    system(paste('zcat ', filename, " | head  -2", sep=""),
           ignore.stderr=TRUE)

    ## Warning in system(paste("zcat ", filename, " | head -2", sep = ""),
    ## ignore.stderr = TRUE): 'zcat' not found

    ## [1] 127

From right to left column in each row, the data includes subject ID, gene name, values of genomic features of interest (18 features here), Z-scores of corresponding gene expression, and either integer values or NA representing the existence/absence in N2 pairs sharing same rare variants. If one subject has a unique set of rare variants compared to other subjects near a particular gene, NA is assigned in N2pair column. Otherwise, two subjects sharing same rare variants in any gene have same integers as unique identifiers of each of N2 pairs.

If you would like to train RIVER with your own data, you need to generate your own compressed file having same file format as explained above. Then, you simply put an entire path of your compressed data file into `getData` which generates a `ExpressionSet` class object (`YourInputToRIVER`) with all necessary information for running RIVER with your own data.

    YourInputToRIVER <- getData(filename) # import experimental data

For our paper, genomic features were generated from various genomic annotations including conservation scores like Gerp, chromatin states from chromHMM or segway, and other summary scores such as CADD and DANN. The intances were selected based on two criteria: (1) any genes having at least one individual outlier in term of z-scores of gene expression and (2) any individuals having at least one rare variant within specific regions near each gene. In each instance, the feature values within regions of interest were aggreated into one summary statistics by applying relevant mathematical operations like max. In more details of a list of genomic annotations used for constructing features and how to generate the features and outlier status, please refer to our publication pre-print.

Back to Top

# 5 Basics

## 5.1 Installation of `RIVER`

`R` is an open-source statistical environment which can be easily modified to enhance its functionality via packages. `RIVER` is a `R` package available via the Bioconductor repository for packages. `R` can be installed on any operating system from CRAN after which you can install `RIVER` by using the following commands in your `R` session:

    ## try http:// if https:// URLs are not supported
    if (!requireNamespace("BiocManager", quietly=TRUE))
        install.packages("BiocManager")
    BiocManager::install("RIVER")

Back to Top

## 5.2 Session Info

Here is the output of sessionInfo() on the system on which this document was compiled:

    ## Session info
    library('devtools')

    ## Loading required package: usethis

    options(width=120)
    session_info()

    ## ─ Session info ───────────────────────────────────────────────────────────────────────────────────────────────────────
    ##  setting  value
    ##  version  R version 4.2.1 (2022-06-23 ucrt)
    ##  os       Windows Server x64 (build 20348)
    ##  system   x86_64, mingw32
    ##  ui       RTerm
    ##  language (EN)
    ##  collate  C
    ##  ctype    English_United States.utf8
    ##  tz       America/New_York
    ##  date     2022-11-01
    ##  pandoc   2.7.3 @ C:/PROGRA~1/Pandoc/ (via rmarkdown)
    ##
    ## ─ Packages ───────────────────────────────────────────────────────────────────────────────────────────────────────────
    ##  package      * version date (UTC) lib source
    ##  assertthat     0.2.1   2019-03-21 [2] CRAN (R 4.2.1)
    ##  Biobase        2.58.0  2022-11-01 [2] Bioconductor
    ##  BiocGenerics   0.44.0  2022-11-01 [2] Bioconductor
    ##  BiocManager    1.30.19 2022-10-25 [2] CRAN (R 4.2.1)
    ##  BiocStyle    * 2.26.0  2022-11-01 [2] Bioconductor
    ##  bookdown       0.29    2022-09-12 [2] CRAN (R 4.2.1)
    ##  bslib          0.4.0   2022-07-16 [2] CRAN (R 4.2.1)
    ##  cachem         1.0.6   2021-08-19 [2] CRAN (R 4.2.1)
    ##  callr          3.7.2   2022-08-22 [2] CRAN (R 4.2.1)
    ##  cli            3.4.1   2022-09-23 [2] CRAN (R 4.2.1)
    ##  codetools      0.2-18  2020-11-04 [2] CRAN (R 4.2.1)
    ##  colorspace     2.0-3   2022-02-21 [2] CRAN (R 4.2.1)
    ##  crayon         1.5.2   2022-09-29 [2] CRAN (R 4.2.1)
    ##  DBI            1.1.3   2022-06-18 [2] CRAN (R 4.2.1)
    ##  devtools     * 2.4.5   2022-10-11 [2] CRAN (R 4.2.1)
    ##  digest         0.6.30  2022-10-18 [2] CRAN (R 4.2.1)
    ##  dplyr          1.0.10  2022-09-01 [2] CRAN (R 4.2.1)
    ##  ellipsis       0.3.2   2021-04-29 [2] CRAN (R 4.2.1)
    ##  evaluate       0.17    2022-10-07 [2] CRAN (R 4.2.1)
    ##  fansi          1.0.3   2022-03-24 [2] CRAN (R 4.2.1)
    ##  farver         2.1.1   2022-07-06 [2] CRAN (R 4.2.1)
    ##  fastmap        1.1.0   2021-01-25 [2] CRAN (R 4.2.1)
    ##  foreach        1.5.2   2022-02-02 [2] CRAN (R 4.2.1)
    ##  fs             1.5.2   2021-12-08 [2] CRAN (R 4.2.1)
    ##  generics       0.1.3   2022-07-05 [2] CRAN (R 4.2.1)
    ##  ggplot2        3.3.6   2022-05-03 [2] CRAN (R 4.2.1)
    ##  glmnet         4.1-4   2022-04-15 [2] CRAN (R 4.2.1)
    ##  glue           1.6.2   2022-02-24 [2] CRAN (R 4.2.1)
    ##  gtable         0.3.1   2022-09-01 [2] CRAN (R 4.2.1)
    ##  highr          0.9     2021-04-16 [2] CRAN (R 4.2.1)
    ##  htmltools      0.5.3   2022-07-18 [2] CRAN (R 4.2.1)
    ##  htmlwidgets    1.5.4   2021-09-08 [2] CRAN (R 4.2.1)
    ##  httpuv         1.6.6   2022-09-08 [2] CRAN (R 4.2.1)
    ##  iterators      1.0.14  2022-02-05 [2] CRAN (R 4.2.1)
    ##  jquerylib      0.1.4   2021-04-26 [2] CRAN (R 4.2.1)
    ##  jsonlite       1.8.3   2022-10-21 [2] CRAN (R 4.2.1)
    ##  knitr          1.40    2022-08-24 [2] CRAN (R 4.2.1)
    ##  labeling       0.4.2   2020-10-20 [2] CRAN (R 4.2.0)
    ##  later          1.3.0   2021-08-18 [2] CRAN (R 4.2.1)
    ##  lattice        0.20-45 2021-09-22 [2] CRAN (R 4.2.1)
    ##  lifecycle      1.0.3   2022-10-07 [2] CRAN (R 4.2.1)
    ##  magick         2.7.3   2021-08-18 [2] CRAN (R 4.2.1)
    ##  magrittr       2.0.3   2022-03-30 [2] CRAN (R 4.2.1)
    ##  Matrix         1.5-1   2022-09-13 [2] CRAN (R 4.2.1)
    ##  memoise        2.0.1   2021-11-26 [2] CRAN (R 4.2.1)
    ##  mime           0.12    2021-09-28 [2] CRAN (R 4.2.0)
    ##  miniUI         0.1.1.1 2018-05-18 [2] CRAN (R 4.2.1)
    ##  munsell        0.5.0   2018-06-12 [2] CRAN (R 4.2.1)
    ##  pillar         1.8.1   2022-08-19 [2] CRAN (R 4.2.1)
    ##  pkgbuild       1.3.1   2021-12-20 [2] CRAN (R 4.2.1)
    ##  pkgconfig      2.0.3   2019-09-22 [2] CRAN (R 4.2.1)
    ##  pkgload        1.3.1   2022-10-28 [2] CRAN (R 4.2.1)
    ##  plyr           1.8.7   2022-03-24 [2] CRAN (R 4.2.1)
    ##  prettyunits    1.1.1   2020-01-24 [2] CRAN (R 4.2.1)
    ##  pROC           1.18.0  2021-09-03 [2] CRAN (R 4.2.1)
    ##  processx       3.8.0   2022-10-26 [2] CRAN (R 4.2.1)
    ##  profvis        0.3.7   2020-11-02 [2] CRAN (R 4.2.1)
    ##  promises       1.2.0.1 2021-02-11 [2] CRAN (R 4.2.1)
    ##  ps             1.7.2   2022-10-26 [2] CRAN (R 4.2.1)
    ##  purrr          0.3.5   2022-10-06 [2] CRAN (R 4.2.1)
    ##  R6             2.5.1   2021-08-19 [2] CRAN (R 4.2.1)
    ##  Rcpp           1.0.9   2022-07-08 [2] CRAN (R 4.2.1)
    ##  remotes        2.4.2   2021-11-30 [2] CRAN (R 4.2.1)
    ##  RIVER        * 1.22.0  2022-11-01 [1] Bioconductor
    ##  rlang          1.0.6   2022-09-24 [2] CRAN (R 4.2.1)
    ##  rmarkdown      2.17    2022-10-07 [2] CRAN (R 4.2.1)
    ##  sass           0.4.2   2022-07-16 [2] CRAN (R 4.2.1)
    ##  scales         1.2.1   2022-08-20 [2] CRAN (R 4.2.1)
    ##  sessioninfo    1.2.2   2021-12-06 [2] CRAN (R 4.2.1)
    ##  shape          1.4.6   2021-05-19 [2] CRAN (R 4.2.0)
    ##  shiny          1.7.3   2022-10-25 [2] CRAN (R 4.2.1)
    ##  stringi        1.7.8   2022-07-11 [2] CRAN (R 4.2.1)
    ##  stringr        1.4.1   2022-08-20 [2] CRAN (R 4.2.1)
    ##  survival       3.4-0   2022-08-09 [2] CRAN (R 4.2.1)
    ##  tibble         3.1.8   2022-07-22 [2] CRAN (R 4.2.1)
    ##  tidyselect     1.2.0   2022-10-10 [2] CRAN (R 4.2.1)
    ##  urlchecker     1.0.1   2021-11-30 [2] CRAN (R 4.2.1)
    ##  usethis      * 2.1.6   2022-05-25 [2] CRAN (R 4.2.1)
    ##  utf8           1.2.2   2021-07-24 [2] CRAN (R 4.2.1)
    ##  vctrs          0.5.0   2022-10-22 [2] CRAN (R 4.2.1)
    ##  xfun           0.34    2022-10-18 [2] CRAN (R 4.2.1)
    ##  xtable         1.8-4   2019-04-21 [2] CRAN (R 4.2.1)
    ##  yaml           2.3.6   2022-10-18 [2] CRAN (R 4.2.1)
    ##
    ##  [1] F:/biocbuild/bbs-3.16-bioc/tmpdir/RtmpSY88wf/Rinst1d983d8f571c
    ##  [2] F:/biocbuild/bbs-3.16-bioc/R/library
    ##
    ## ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────

Back to Top

## 5.3 Asking for Help

As package developers, we try to explain clearly how to use our packages and in which order to use the functions. But `R` and `Bioconductor` have a steep learning curve so it is critical to learn where to ask for help. The blog post quoted above mentions some but we would like to highlight the Bioconductor support site as the main resource for getting help. Other alternatives are available such as creating GitHub issues and tweeting. However, please note that if you want to receive help you should adhere to the posting guidlines. It is particularly critical that you provide a small reproducible example and your session information so package developers can track down the source of the error.

Back to Top

## 5.4 References

Xin Li\(^{*}\), Yungil Kim\(^{*}\), Emily K. Tsang\(^{*}\), Joe R. Davis\(^{*}\), Farhan N. Damani, Colby Chiang, Zachary Zappala, Benjamin J. Strober, Alexandra J. Scott, Andrea Ganna, Jason Merker, GTEx Consortium, Ira M. Hall, Alexis Battle\(^{\#}\), Stephen B. Montgomery\(^{\#}\) (2016).
The impact of rare variation on gene expression across tissues
(in arXiv, submitted, *: equal contribution, #: corresponding authors)

Back to Top

# 6 Appendices

## 6.1 Optional parameters

Functions within `RIVER` have a set of optional parameters which control some aspects of the computation of RIVER scores. The factory default settings are expected to serve in many cases, but users might need to make changes based on the input data.

There are four parameters that users can change:

`pseudoc` - Pseudo count (hyperparameter) in a beta distribution for \(\theta\); factory default = 50

`theta_init` - Initial values of \(\theta\); factory default = (P(E = 0 | FR = 0), P(E = 1 | FR = 0), P(E = 0 | FR = 1), P(E = 1 | FR = 1)) = (0.99, 0.01, 0.3, 0.7)

`costs` - List of candidate \(\lambda\) values for finding a best \(\lambda\) (hyperparameter). A best \(\lambda\) value among the candidate list is selected from L2-regularized logistic regression (GAM) via 10 cross-validation; factory default = (100, 10, 1, .1, .01, 1e-3, 1e-4)

`verbose` - If you set this parameter as `TRUE`, you observe how parameters including \(\theta\) and \(\beta\) converge until their updates at each EM iteration are within predefined tolerance levels (one norm of the difference between current and previous parameters < 1e-3); factory default = `FALSE`

Note that initial values of \(\beta\) are generated from L2-regularized logistic regression (GAM) with pre-selected \(\lambda\) from 10 cross-validation.

Back to Top

## 6.2 Stability of Estimated Parameters with Different Parameter Initializations

In this section, we reports how several different initialization parameters for either \(\beta\) or \(\theta\) affect the estimated parameters. We initialized a noisy \(\beta\) by adding K% Gaussian noise compared to the mean of \(\beta\) with fixed \(\theta\) (for K = 10, 20, 50 100, 200, 400, 800). For \(\theta\), we fixed P(E = 1 | FR = 0) and P(E = 0 | FR = 0) as 0.01 and 0.99, respectively, and initialized (P(E = 1 | FR = 1), P(E = 0 | FR = 1)) as (0.1, 0.9), (0.4, 0.6), and (0.45, 0.55) instead of (0.3, 0.7) with \(\beta\) fixed. For each parameter initialization, we computed Spearman rank correlations between parameters from RIVER using the original initialization and the alternative initializations. We also investigated how many instances within top 10% of posterior probabilities from RIVER under the original settings were replicated in the top 10% of posterior probabilities under the alternative initializations. We also tried five different values of pseudoc as 10, 20, 30, 75, and 100 with default settings of \(\beta\) and \(\theta\) and computed both Spearman rank correlations and accuracy as explained above.

Parameter | Initialization | Spearman ρ | Accuracy
--- | --- | --- | ---
| 10% noise | > .999 | 0.880
| 25% noise | > .999 | 0.862
| 50% noise | > .999 | 0.849
\(\beta\) | 100% noise | > .999 | 0.848
| 200% noise | > .999 | 0.843
| 400% noise | > .999 | 0.846
| 800% noise | > .999 | 0.846
| [0.1, 0.9] | > .999 | 0.841
\(\theta\) | [0.4, 0.6] | > .999 | 1.000
| [0.45, 0.55] | > .999 | 1.000
| 10 | .988 | 0.934
| 20 | .996 | 0.955
pseudoc | 30 | .999 | 0.972
| 75 | .999 | 0.979
| 100 | .998 | 0.967

Back to Top