Using target to predict combined binding

Overview

In this document, we extend the BETA algorithm to predict cooperative and/or competitive binding events of two factors at the same region of interest. This method uses the same theory described in vignette('target') with one modification. Instead of using an individual statistics from a factor perturbation experiment, we use two separate statistics from two comparable factor perturbation experiments to define a regulatory interaction (\(RI\)). This regulatory interaction terms are used to calculate rank products of the regions of interest. In addition, we illustrate the use of this method with a simulated dataset and an example of real-world data.

Theory

This method is an extension of the BETA basic algorithm. Briefly, the rank product of a regions of interest (\(RP_g\)) is the product of two terms; the rank of a statistics from factor perturbation experiment (\(R_{ge}\)) and the rank of the regulatory potential (\(R_{gb}\)). The regulatory potential of region of interest (\(S_g\)) is the sum of the peaks within a predefined distance:

\[ S_g = \sum_{i=1}^k e^{-(0.5+4\Delta_i)} \quad\text{and}\quad RP_g = \frac{R_{gb}\times R_{ge}}{n^2} \] Where \(p\) is a peak in \(\{1,...,k\}\) with a distance, \(\Delta\), from the center of the region of interest.

Two determine the relation of two factors \(x\) and \(y\) on a common peak near a region of interest, we define a new term; the regulatory interaction (\(RI\)) as the product of two signed statistics from comparable perturbation experiments. The rank of this term is used to calculate a rank product (\(PR_g\)) for each region of interest as described above

\[ RI_{g} = x_{ge}\times y_{ge} \quad\text{and}\quad RP_g = \frac{R_{gb}\times RI_{ge}}{n^2} \]

This term would represent the interaction magnitude assuming a linear relation between the two factor. The sign of the term would define the direction of the relation were positive means cooperative and negative means competitive.

Example

The target package contain two simulated datasets. sim_peaks is random peaks with random distances from the transcripts of chromosome 1 of the mm10 mouse genome. sim_transcripts is the same transcripts with random singed statistics assigned to each. In the following two examples, we introduce changes in these statistics to simulate conditions where two factors are working cooperatively or competitively on the same transcripts.

# load libraries
library(target)

# load data
data("sim_peaks")
data("sim_transcripts")

To help visualize these cases, a plotting function plot_profiles was constructed to introduce the changes change in the statistics of the transcripts near the n number of peaks. The source code for the function is available in inst/extdata/plot-profiles.R which we source to use here. The output of the function is a series of plots to visualize the statistics of the two factors before and after introducing the changes, the peaks distances and scores and the predicted functions of the factors individually and combined.

# source the plotting function
source(system.file('extdata', 'plot-profiles.R', package = 'target'))

# simulate and plot cooperative factors
plot_profiles(sim_peaks,
              sim_transcripts,
              n = 5000,
              change = c(3, 3))

# simulate and plot competitve factors
plot_profiles(sim_peaks,
              sim_transcripts,
              n = 5000,
              change = c(3, -3))

References

Wang S, Sun H, Ma J, et al. Target analysis by integration of transcriptome and ChIP-seq data with BETA. Nat Protoc. 2013;8(12):2502–2515. doi:10.1038/nprot.2013.150

sessionInfo()
#> R version 4.1.1 (2021-08-10)
#> Platform: x86_64-pc-linux-gnu (64-bit)
#> Running under: Ubuntu 20.04.3 LTS
#> 
#> Matrix products: default
#> BLAS:   /home/biocbuild/bbs-3.14-bioc/R/lib/libRblas.so
#> LAPACK: /home/biocbuild/bbs-3.14-bioc/R/lib/libRlapack.so
#> 
#> locale:
#>  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
#>  [3] LC_TIME=en_GB              LC_COLLATE=C              
#>  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
#>  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
#>  [9] LC_ADDRESS=C               LC_TELEPHONE=C            
#> [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
#> 
#> attached base packages:
#> [1] stats     graphics  grDevices utils     datasets  methods   base     
#> 
#> other attached packages:
#> [1] target_1.8.0
#> 
#> loaded via a namespace (and not attached):
#>  [1] Rcpp_1.0.7             highr_0.9              bslib_0.3.1           
#>  [4] compiler_4.1.1         later_1.3.0            jquerylib_0.1.4       
#>  [7] GenomeInfoDb_1.30.0    XVector_0.34.0         bitops_1.0-7          
#> [10] tools_4.1.1            zlibbioc_1.40.0        digest_0.6.28         
#> [13] jsonlite_1.7.2         evaluate_0.14          lifecycle_1.0.1       
#> [16] rlang_0.4.12           shiny_1.7.1            yaml_2.2.1            
#> [19] xfun_0.27              fastmap_1.1.0          GenomeInfoDbData_1.2.7
#> [22] stringr_1.4.0          knitr_1.36             S4Vectors_0.32.0      
#> [25] sass_0.4.0             IRanges_2.28.0         stats4_4.1.1          
#> [28] R6_2.5.1               rmarkdown_2.11         magrittr_2.0.1        
#> [31] promises_1.2.0.1       htmltools_0.5.2        matrixStats_0.61.0    
#> [34] ellipsis_0.3.2         BiocGenerics_0.40.0    GenomicRanges_1.46.0  
#> [37] mime_0.12              xtable_1.8-4           httpuv_1.6.3          
#> [40] stringi_1.7.5          RCurl_1.98-1.5