# Prediction of chromatin looping interactions with sevenC

Jonas Ibn-Salem1,2* and Miguel Andrade-Navarro1,2

1Faculty of Biology, Johannes Gutenberg University of Mainz, 55128 Mainz, Germany
2Institute of Molecular Biology, 55128 Mainz, Germany

*j.ibn-salem@uni-mainz.de

#### 27 October 2021

#### Abstract

Chromatin looping is an essential feature of eukaryotic genomes and can bring regulatory sequences, such as enhancers or transcription factor binding sites, in the close physical proximity of regulated target genes. Here, we provide sevenC, an R package that uses protein binding signals from ChIP-seq and sequence motif information to predict chromatin looping events. Cross-linking of proteins that bind close to loop anchors result in ChIP-seq signals at both anchor loci. These signals are used at CTCF motif pairs together with their distance and orientation to each other to predict whether they interact or not. The resulting chromatin loops might be used to associate enhancers or transcription factor binding sites (e.g., ChIP-seq peaks) to regulated target genes.

#### Package

sevenC 1.14.0

# 1 Background and introduction

Gene expression is regulated by binding of transcription factors (TF) to genomic DNA. However, many binding sites are in distal regulatory regions, such as enhancers, that are hundreds of kilobases apart from genes. These regulatory regions can physically interact with promoters of regulated genes by chromatin looping interactions. These looping interaction can be measured genome-wide by chromatin conformation capture techniques such as Hi-C or ChIA-PET (Rao et al. 2014; Tang et al. 2015). Despite many exciting insights into the three-dimensional organization of genomes, these experimental methods are not only elaborate and expansive but also have limited resolution and are only available for a limited number of cell types and conditions. In contrast, the binding sites of TFs can be detected genome-wide by ChIP-seq experiment with high resolution and are available for hundreds of TFs in many cell type and conditions. However, classical analysis of ChIP-seq gives only the direct binding sites of targeted TFs (ChIP-seq peaks) and it is not trivial to associate them to the regulated gene without chromatin looping information. Therefore, we provide a computational method to predict chromatin interactions from only genomic sequence features and ChIP-seq data. The predicted looping interactions can be used to associate TF binding sites (ChIP-seq peaks) or enhancers to regulated genes and thereby improve functional downstream analysis on the level of genes.

In this vignette, we show how to use the R package sevenC to predict chromatin looping interactions between CTCF motifs by using only ChIP-seq data form a single experiment. Furthermore, we show how to train the prediction model using custom data.

A more detailed explanation of the sevenC method together with prediction performance analysis is available in the associated preprint (Ibn-Salem and Andrade-Navarro 2018).

# 2 Installation

To install the sevenC package, start R and enter:

    # install.packages("BiocManager")
    BiocManager::install("sevenC")

# 3 Predict chromatin looping interactions

## 3.1 Basic usage example

Here we show how to use the sevenC package with default options to predict chromatin looping interactions among CTCF motif locations on the human chromosome 22. As input, we only use CTCF motif locations and a single bigWig file from a STAT1 ChIP-seq experiment in human GM12878 cells (Dunham et al. 2012).

### 3.1.1 Get motif pairs

    library(sevenC)

    # load provided CTCF motifs in human genome
    motifs <- motif.hg19.CTCF.chr22

    # get motifs pairs
    gi <- prepareCisPairs(motifs)

### 3.1.2 Add ChIP-seq data and compute correaltion

    # use example ChIP-seq bigWig file
    bigWigFile <- system.file("extdata", "GM12878_Stat1.chr22_1-30000000.bigWig",
      package = "sevenC")

    # add ChIP-seq coverage and compute correaltion at motif pairs
    gi <- addCor(gi, bigWigFile)

### 3.1.3 Predict loops

    # predict looping interactions among all motif pairs
    loops <- predLoops(gi)

## 3.2 More detailed usage example

Here we show in more detail each step of the loop prediction process. Again, we want to predict chromatin looping interactions among CTCF motif locations on chromosome 22 using a ChIP-seq for STAT1 in human GM12878 cells.

### 3.2.1 Prepare CTCF motif pairs

First, we need to prepare CTCF motif pairs as candidate anchors for chromatin loop interactions. We use CTCF motif hits in human chromosome 22 as provide by sevenC package. In general, any CTCF motifs can be used if provided as `GRanges`. To use the motif similarity score as a predictive feature, the motif data should contain -log10 transformed p-values describing the significance of each motif hit. Here, we use CTCF motif sites as provided from the JASPAR genome browser tracks (Khan et al. 2018). The objedt `motif.hg19.CTCF.chr22` in the `r BiocStyle::Biocpkg("sevenC")` package contains CTCF motif locations on chromosome 22. For more information on the motif data set, see `?motif.hg19.CTCF`.

    library(sevenC)

    # load provided CTCF motifs
    motifs <- motif.hg19.CTCF.chr22

The CTCF motif are represented as `GRanges` object from the `r BiocStyle::Biocpkg("GenomicRanges")` package. There are 917 CTCF motif locations on chromosome 22. The genome assembly is hg19. one metadata column named `score` shows motif match similarity as -log10 transformed p-value.

### 3.2.2 Add ChIP-seq signals at motifs sites

To predict loops, we need the ChIP-seq signals at all motif sites. Therefore, we read an example bigWig file with ChIP-seq signals.

An example file with only data on a subset of chromosome 22 is provided as part of the sevenC package. The full file can be downloaded from ENCODE (Dunham et al. 2012) here. The file contains for each position in the genome the log-fold-change of ChIP-seq signals versus input control.

    # use example ChIP-seq bigWig file
    bigWigFile <- system.file("extdata", "GM12878_Stat1.chr22_1-30000000.bigWig",
      package = "sevenC")

We add ChIP-seq signals to all motifs in a window of 1000 bp using the function `addCovToGR()` as follows.

    # read ChIP-seq coverage
    motifs <- addCovToGR(motifs, bigWigFile)

This adds a new metadata column to `motifs` holding a `NumericList` with ChIP-seq signals for each motif location.

    motifs$chip

    ## NumericList of length 917
    ## [["chr22"]] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ... 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
    ## [["chr22"]] 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 ... 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2
    ## [["chr22"]] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ... 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
    ## [["chr22"]] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ... 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
    ## [["chr22"]] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ... 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
    ## [["chr22"]] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ... 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
    ## [["chr22"]] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ... 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
    ## [["chr22"]] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ... 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
    ## [["chr22"]] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ... 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
    ## [["chr22"]] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ... 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
    ## ...
    ## <907 more elements>

Please note, on Windows systems, reading of bigWig files is currently not supported. See `help(rtracklayer::import.bw)` for more information. Users on Windows need to get ChIP-seq signals around motif sites as a `NumierList` object. A `NumericList` `l` with ChIP-signal counts around each motif list can be added by `motifs$chip <- l`.

### 3.2.3 Build pairs of motifs as candidate interactions

Now we build a dataset with all pairs of CTCF motif within 1 Mb and annotate it with distance, motif orientation, and motif score.

    gi <- prepareCisPairs(motifs, maxDist = 10^6)

    gi

    ## StrictGInteractions object with 26076 interactions and 5 metadata columns:
    ##           seqnames1           ranges1     seqnames2           ranges2 |
    ##               <Rle>         <IRanges>         <Rle>         <IRanges> |
    ##       [1]     chr22 16186188-16186206 ---     chr22 16205307-16205325 |
    ##       [2]     chr22 16186188-16186206 ---     chr22 16238548-16238566 |
    ##       [3]     chr22 16186188-16186206 ---     chr22 16239188-16239206 |
    ##       [4]     chr22 16186188-16186206 ---     chr22 16239827-16239845 |
    ##       [5]     chr22 16186188-16186206 ---     chr22 16247246-16247264 |
    ##       ...       ...               ... ...       ...               ... .
    ##   [26072]     chr22 51110780-51110798 ---     chr22 51160028-51160046 |
    ##   [26073]     chr22 51110780-51110798 ---     chr22 51172084-51172102 |
    ##   [26074]     chr22 51130130-51130148 ---     chr22 51160028-51160046 |
    ##   [26075]     chr22 51130130-51130148 ---     chr22 51172084-51172102 |
    ##   [26076]     chr22 51160028-51160046 ---     chr22 51172084-51172102 |
    ##                dist strandOrientation   score_1   score_2 score_min
    ##           <integer>       <character> <numeric> <numeric> <numeric>
    ##       [1]     19119           forward      6.05      5.72      5.72
    ##       [2]     52360           forward      6.05      5.92      5.92
    ##       [3]     53000           forward      6.05      5.90      5.90
    ##       [4]     53639           forward      6.05      5.92      5.92
    ##       [5]     61058           forward      6.05      5.92      5.92
    ##       ...       ...               ...       ...       ...       ...
    ##   [26072]     49248           reverse      6.21      5.64      5.64
    ##   [26073]     61304           reverse      6.21      5.90      5.90
    ##   [26074]     29898           reverse      6.33      5.64      5.64
    ##   [26075]     41954           reverse      6.33      5.90      5.90
    ##   [26076]     12056           reverse      5.64      5.90      5.64
    ##   -------
    ##   regions: 917 ranges and 2 metadata columns
    ##   seqinfo: 93 sequences (1 circular) from hg19 genome

The function `prepareCisPairs()` returns a `GInteractoin` object from the `r BiocStyle::Biocpkg("InteractonSet")` package, representing all motif pairs within the defined distance. The metadata columns of the `GInteractoin` object hold the genomic distance between motifs in bp (`dist`), the orientation of motifs (`strandOrientation`), and the motif score as -log10 of the motif hit p-value (`score_1`, `score_2`, and `score_min`). Note, that the function `prepareCisPairs()` is a wrapper for three individual functions that perform each step separately and allow more options. First, `getCisPairs()` is used to builds the `GInteractoin` object. Than `addStrandCombination()` adds the four possible strand combinations of motifs pairs. Finally, `addMotifScore()` adds the minimum motif score for each pair. These genomic features are used later as predictive variables.

## 3.3 Compute ChIP-seq similarity at motif pairs

Now, we compute the similarity of ChIP-seq signals for all motif pairs as the correlation of signals across positions around motif centers. Thereby, for two motifs the corresponding ChIP-seq signal vectors that were added to `motifs` before, are compared by Pearson correlation. A high correlation of ChIP-seq signals at two motifs indicates a similar ChIP-seq coverage profile at the two motifs. This, in turn, is characteristic for physical interaction via chromatin looping, where ChIP signals are found on both sides with a similar distance to motif centers (Ibn-Salem and Andrade-Navarro 2018). The correlation coefficient is added as additional metadata column to `gi`.

    # add ChIP-seq coverage and compute correaltion at motif pairs
    gi <- addCovCor(gi)

## 3.4 Predict loops

Now we can predict chromatin loops integrating from the ChIP-seq correlation and other genomic features in a logistic regression model. This is implemented in the `predLoops()` function.

    loops <- predLoops(gi)

    loops

    ## StrictGInteractions object with 607 interactions and 7 metadata columns:
    ##         seqnames1           ranges1     seqnames2           ranges2 |      dist
    ##             <Rle>         <IRanges>         <Rle>         <IRanges> | <integer>
    ##     [1]     chr22 16186188-16186206 ---     chr22 16239188-16239206 |     53000
    ##     [2]     chr22 16205307-16205325 ---     chr22 16409786-16409804 |    204479
    ##     [3]     chr22 16238548-16238566 ---     chr22 16409786-16409804 |    171238
    ##     [4]     chr22 17398482-17398500 ---     chr22 17539262-17539280 |    140780
    ##     [5]     chr22 17398482-17398500 ---     chr22 17652850-17652868 |    254368
    ##     ...       ...               ... ...       ...               ... .       ...
    ##   [603]     chr22 26756542-26756560 ---     chr22 27041422-27041440 |    284880
    ##   [604]     chr22 26763796-26763814 ---     chr22 27041422-27041440 |    277626
    ##   [605]     chr22 28123236-28123254 ---     chr22 28221328-28221346 |     98092
    ##   [606]     chr22 29225543-29225561 ---     chr22 29436847-29436865 |    211304
    ##   [607]     chr22 29436847-29436865 ---     chr22 29641698-29641716 |    204851
    ##         strandOrientation   score_1   score_2 score_min  cor_chip      pred
    ##               <character> <numeric> <numeric> <numeric> <numeric> <numeric>
    ##     [1]           forward      6.05      5.90      5.90  0.885073  0.193089
    ##     [2]        convergent      5.72      5.79      5.72  0.415731  0.162644
    ##     [3]        convergent      5.92      5.79      5.79  0.675000  0.301512
    ##     [4]        convergent      6.48      6.89      6.48  0.790284  0.550519
    ##     [5]        convergent      6.48      8.49      6.48  0.221485  0.172598
    ##     ...               ...       ...       ...       ...       ...       ...
    ##   [603]           reverse      8.27      7.93      7.93  0.349559  0.225008
    ##   [604]           reverse      8.59      7.93      7.93  0.739380  0.423643
    ##   [605]           reverse      6.29      8.16      6.29  0.601548  0.188785
    ##   [606]           reverse      6.73      6.33      6.33  0.928965  0.245978
    ##   [607]           reverse      6.33      7.27      6.33  0.909619  0.242532
    ##   -------
    ##   regions: 917 ranges and 2 metadata columns
    ##   seqinfo: 93 sequences (1 circular) from hg19 genome

The `predLoops()` function returns a subset of motif pairs that are predicted to interact. The interactions are annotated with ChIP-seq correlation in column `cor_chip`. The column `pred` holds the predicted interaction probability according to the logistic regression model.

Note, that without specifying further options, the function `predLoops()` uses a default model that was optimized for several transcription factor ChIP-seq datasets by using experimental chromatin loops from Hi-C and ChIA-PET for validations (Ibn-Salem and Andrade-Navarro 2018). However, users can specify custom features using the `formula` argument and provide custom parameters using the `betas` argument. Furthermore, per default the `predLoops()` function report only looping interactions that reach a minimal prediction score threshold. The fraction of reported loops can be modified using the `cutoff` argument.

# 4 Downstream analysis with predicted chromatin loops

## 4.1 Linking sets of regions

Predicted loops are represented as `GInteraction` and can, therefore, be used easily for downstream analysis with functions from the `r BiocStyle::Biocpkg("InteractonSet")` package. For example, linking two sets of regions (like ChIP-seq peaks and genes) can be done using the `linkOverlaps` function. See the vignette from the InteractonSet package for more details and examples on working with `GInteraction` objects.

## 4.2 Write predicted loops to an output file

Since looping interactions are stored as `GInteraction` objects, they can be exported as BEDPE files using functions from GenomicInteractions package. These files can be used for visualization in genome browsers or the Juicebox tool.

    library(GenomicInteractions)

    # export to output file
    export.bedpe(loops, "loop_interactions.bedpe", score = "pred")

# 5 Train prediction model using custom data

Here, we show how to use sevenC to build and train a logistic regression model for loop prediction.

## 5.1 Prepare motif pairs and add ChIP-seq data

First, we need to build the pairs of motifs as candidates and add the ChIP-seq data as shown above.

    # load provided CTCF motifs
    motifs <- motif.hg19.CTCF.chr22

    # use example ChIP-seq coverage file
    bigWigFile <- system.file("extdata", "GM12878_Stat1.chr22_1-30000000.bigWig",
      package = "sevenC")

    # add ChIP-seq coverage
    motifs <- addCovToGR(motifs, bigWigFile)

    # build motif pairs
    gi <- prepareCisPairs(motifs, maxDist = 10^6)

    # add correaltion of ChIP-signal
    gi <- addCovCor(gi)

## 5.2 Train predictor with known loops

We need to label true looping interactions by using experimental data of chromatin interactions. Here, we use loops from high-resolution Hi-C experiments in human GM12878 cells (Rao et al. 2014). An example file with loops on chromosome 22 is provided with the sevenC package and the function `parseLoopsRao()` reads loops in the format provided by Rao et al. and returns a `GInteraction` object.

    # parse known loops
    knownLoopFile <- system.file("extdata",
      "GM12878_HiCCUPS.chr22_1-30000000.loop.txt", package = "sevenC")

    knownLoops <- parseLoopsRao(knownLoopFile)

We can add a new metadata column to the motif pairs `gi`, indicating whether the pair is interacting in the experimental data using the function `addInteractionSupport()`.

    # add known loops
    gi <- addInteractionSupport(gi, knownLoops)

The experimental support is added as factor with levels `"Loop"` and `"No loop"` as metadata column named `loop`. The column name can be modified using the `colname` argument.

## 5.3 Train logistic regression model

We can use the R function `glm()` to fit a logistic regression model in which the `loop` column is the dependent variable and the ChIP-seq correlation, distance, and strand orientation are the predictors.

    fit <- glm(
      formula = loop ~ cor_chip + dist + strandOrientation,
      data = mcols(gi),
      family = binomial()
      )

## 5.4 Predict loops with a custom model

Now, we can use this model to add predicted looping probabilities.

    # add predict loops
    gi <- predLoops(
      gi,
      formula = loop ~ cor_chip + dist + strandOrientation,
      betas = coef(fit),
      cutoff = NULL
    )

Here, we have to use the same formula as argument as in the model fitting step above. The `betas` argument takes the coefficients of the logistic regression model. Finally, the argument `cutoff = NULL` ensures that no filtering is done and all input candidates are reported. The prediction score is added as a new metadata column to `gi`.

    gi

    ## StrictGInteractions object with 26076 interactions and 8 metadata columns:
    ##           seqnames1           ranges1     seqnames2           ranges2 |
    ##               <Rle>         <IRanges>         <Rle>         <IRanges> |
    ##       [1]     chr22 16186188-16186206 ---     chr22 16205307-16205325 |
    ##       [2]     chr22 16186188-16186206 ---     chr22 16238548-16238566 |
    ##       [3]     chr22 16186188-16186206 ---     chr22 16239188-16239206 |
    ##       [4]     chr22 16186188-16186206 ---     chr22 16239827-16239845 |
    ##       [5]     chr22 16186188-16186206 ---     chr22 16247246-16247264 |
    ##       ...       ...               ... ...       ...               ... .
    ##   [26072]     chr22 51110780-51110798 ---     chr22 51160028-51160046 |
    ##   [26073]     chr22 51110780-51110798 ---     chr22 51172084-51172102 |
    ##   [26074]     chr22 51130130-51130148 ---     chr22 51160028-51160046 |
    ##   [26075]     chr22 51130130-51130148 ---     chr22 51172084-51172102 |
    ##   [26076]     chr22 51160028-51160046 ---     chr22 51172084-51172102 |
    ##                dist strandOrientation   score_1   score_2 score_min  cor_chip
    ##           <integer>       <character> <numeric> <numeric> <numeric> <numeric>
    ##       [1]     19119           forward      6.05      5.72      5.72  0.339540
    ##       [2]     52360           forward      6.05      5.92      5.92 -0.104692
    ##       [3]     53000           forward      6.05      5.90      5.90  0.885073
    ##       [4]     53639           forward      6.05      5.92      5.92 -0.170961
    ##       [5]     61058           forward      6.05      5.92      5.92 -0.104692
    ##       ...       ...               ...       ...       ...       ...       ...
    ##   [26072]     49248           reverse      6.21      5.64      5.64        NA
    ##   [26073]     61304           reverse      6.21      5.90      5.90        NA
    ##   [26074]     29898           reverse      6.33      5.64      5.64        NA
    ##   [26075]     41954           reverse      6.33      5.90      5.90        NA
    ##   [26076]     12056           reverse      5.64      5.90      5.64        NA
    ##               loop        pred
    ##           <factor>   <numeric>
    ##       [1]  No loop 0.002077368
    ##       [2]  No loop 0.000422511
    ##       [3]  No loop 0.012289515
    ##       [4]  No loop 0.000335909
    ##       [5]  No loop 0.000414237
    ##       ...      ...         ...
    ##   [26072]  No loop          NA
    ##   [26073]  No loop          NA
    ##   [26074]  No loop          NA
    ##   [26075]  No loop          NA
    ##   [26076]  No loop          NA
    ##   -------
    ##   regions: 917 ranges and 2 metadata columns
    ##   seqinfo: 93 sequences (1 circular) from hg19 genome

As a very simple validation, we can now compare the prediction score for looping and non-looping motif pairs using a boxplot.

    boxplot(gi$pred ~ gi$loop,
            ylab = "Predicted interaction probability")

The plot shows higher prediction scores for truly looping motif pairs. However, this is an insufficient evaluation of prediction performance, since the prediction score is evaluated on the same data as it was trained. A more detailed evaluation of prediction performance using cross-validation and different cell types is described in the 7C paper (Ibn-Salem and Andrade-Navarro 2018).

## 5.5 Session info

    sessionInfo()

    ## R version 4.1.1 (2021-08-10)
    ## Platform: x86_64-w64-mingw32/x64 (64-bit)
    ## Running under: Windows Server x64 (build 17763)
    ##
    ## Matrix products: default
    ##
    ## locale:
    ## [1] LC_COLLATE=C
    ## [2] LC_CTYPE=English_United States.1252
    ## [3] LC_MONETARY=English_United States.1252
    ## [4] LC_NUMERIC=C
    ## [5] LC_TIME=English_United States.1252
    ##
    ## attached base packages:
    ## [1] stats4    stats     graphics  grDevices utils     datasets  methods
    ## [8] base
    ##
    ## other attached packages:
    ##  [1] GenomicInteractions_1.28.0  sevenC_1.14.0
    ##  [3] InteractionSet_1.22.0       SummarizedExperiment_1.24.0
    ##  [5] Biobase_2.54.0              MatrixGenerics_1.6.0
    ##  [7] matrixStats_0.61.0          GenomicRanges_1.46.0
    ##  [9] GenomeInfoDb_1.30.0         IRanges_2.28.0
    ## [11] S4Vectors_0.32.0            BiocGenerics_0.40.0
    ## [13] BiocStyle_2.22.0
    ##
    ## loaded via a namespace (and not attached):
    ##   [1] colorspace_2.0-2         rjson_0.2.20             ellipsis_0.3.2
    ##   [4] biovizBase_1.42.0        htmlTable_2.3.0          XVector_0.34.0
    ##   [7] base64enc_0.1-3          dichromat_2.0-0          rstudioapi_0.13
    ##  [10] bit64_4.0.5              AnnotationDbi_1.56.0     fansi_0.5.0
    ##  [13] xml2_1.3.2               splines_4.1.1            cachem_1.0.6
    ##  [16] knitr_1.36               Formula_1.2-4            jsonlite_1.7.2
    ##  [19] Rsamtools_2.10.0         cluster_2.1.2            dbplyr_2.1.1
    ##  [22] png_0.1-7                readr_2.0.2              BiocManager_1.30.16
    ##  [25] compiler_4.1.1           httr_1.4.2               backports_1.2.1
    ##  [28] lazyeval_0.2.2           assertthat_0.2.1         Matrix_1.3-4
    ##  [31] fastmap_1.1.0            htmltools_0.5.2          prettyunits_1.1.1
    ##  [34] tools_4.1.1              igraph_1.2.7             gtable_0.3.0
    ##  [37] glue_1.4.2               GenomeInfoDbData_1.2.7   dplyr_1.0.7
    ##  [40] rappdirs_0.3.3           Rcpp_1.0.7               jquerylib_0.1.4
    ##  [43] vctrs_0.3.8              Biostrings_2.62.0        rtracklayer_1.54.0
    ##  [46] xfun_0.27                stringr_1.4.0            lifecycle_1.0.1
    ##  [49] ensembldb_2.18.0         restfulr_0.0.13          XML_3.99-0.8
    ##  [52] zlibbioc_1.40.0          scales_1.1.1             vroom_1.5.5
    ##  [55] BSgenome_1.62.0          VariantAnnotation_1.40.0 ProtGenerics_1.26.0
    ##  [58] hms_1.1.1                parallel_4.1.1           AnnotationFilter_1.18.0
    ##  [61] RColorBrewer_1.1-2       yaml_2.2.1               curl_4.3.2
    ##  [64] memoise_2.0.0            gridExtra_2.3            ggplot2_3.3.5
    ##  [67] sass_0.4.0               biomaRt_2.50.0           rpart_4.1-15
    ##  [70] latticeExtra_0.6-29      stringi_1.7.5            RSQLite_2.2.8
    ##  [73] highr_0.9                BiocIO_1.4.0             checkmate_2.0.0
    ##  [76] GenomicFeatures_1.46.0   filelock_1.0.2           boot_1.3-28
    ##  [79] BiocParallel_1.28.0      rlang_0.4.12             pkgconfig_2.0.3
    ##  [82] bitops_1.0-7             evaluate_0.14            lattice_0.20-45
    ##  [85] purrr_0.3.4              htmlwidgets_1.5.4        GenomicAlignments_1.30.0
    ##  [88] bit_4.0.4                tidyselect_1.1.1         magrittr_2.0.1
    ##  [91] bookdown_0.24            R6_2.5.1                 magick_2.7.3
    ##  [94] generics_0.1.1           Hmisc_4.6-0              DelayedArray_0.20.0
    ##  [97] DBI_1.1.1                pillar_1.6.4             foreign_0.8-81
    ## [100] survival_3.2-13          KEGGREST_1.34.0          RCurl_1.98-1.5
    ## [103] nnet_7.3-16              tibble_3.1.5             crayon_1.4.1
    ## [106] utf8_1.2.2               BiocFileCache_2.2.0      tzdb_0.1.2
    ## [109] rmarkdown_2.11           jpeg_0.1-9               progress_1.2.2
    ## [112] grid_4.1.1               data.table_1.14.2        blob_1.2.2
    ## [115] digest_0.6.28            munsell_0.5.0            Gviz_1.38.0
    ## [118] bslib_0.3.1

# References

Dunham, Ian, Anshul Kundaje, Shelley F Aldred, Patrick J Collins, Carrie a Davis, Francis Doyle, Charles B Epstein, et al. 2012. “An integrated encyclopedia of DNA elements in the human genome.” Nature 489 (7414): 57–74. https://doi.org/10.1038/nature11247.

Ibn-Salem, Jonas, and Miguel A. Andrade-Navarro. 2018. “Computational Chromosome Conformation Capture by Correlation of ChIP-seq at CTCF motifs.” bioRxiv, February, 257584. https://doi.org/10.1101/257584.

Khan, Aziz, Oriol Fornes, Arnaud Stigliani, Marius Gheorghe, Jaime A Castro-Mondragon, Robin van der Lee, Adrien Bessy, et al. 2018. “JASPAR 2018: update of the open-access database of transcription factor binding profiles and its web framework.” Nucleic Acids Research 46 (D1): D260–D266. https://doi.org/10.1093/nar/gkx1126.

Rao, Suhas S P, Miriam H Huntley, Neva C Durand, Elena K Stamenova, Ivan D Bochkov, James T Robinson, Adrian L Sanborn, et al. 2014. “A 3D map of the human genome at kilobase resolution reveals principles of chromatin looping.” Cell 159 (7): 1665–80. https://doi.org/10.1016/j.cell.2014.11.021.

Tang, Zhonghui, Oscar Junhong Luo, Xingwang Li, Meizhen Zheng, Jacqueline Jufen Zhu, Przemyslaw Szalaj, Pawel Trzaskoma, et al. 2015. “CTCF-Mediated Human 3D Genome Architecture Reveals Chromatin Topology for Transcription.” Cell, 1–17. https://doi.org/10.1016/j.cell.2015.11.024.