extraChIPs 1.2.4
This package is designed to enable the Gene Regulatory Analysis using Variable
IP (GRAVI) workflow, as a method for
detecting differential binding in ChIP-Seq datasets.
As a workflow focussed on data integration, most functions provided by the
package extraChIPs
are designed to enable comparison across datasets.
This vignette looks primarily at functions which work with GenomicRanges
objects.
In order to use the package extraChIPs
and follow this vignette, we recommend
using the package BiocManager
hosted on CRAN.
Once this is installed, the additional packages required for this vignette
(tidyverse
, plyranges
and Gviz
) can also be installed.
if (!"BiocManager" %in% rownames(installed.packages()))
install.packages("BiocManager")
BiocManager::install(c("tidyverse", "plyranges", "Gviz"))
BiocManager::install("extraChIPs")
The advent of the tidyverse
has led to tibble
objects becoming a common
alternative to data.frame
or DataFrame
objects.
Simple functions within extraChIP
enable coercion from GRanges
,
GInteractions
and DataFrame
objects to tibble objects, with list columns
correctly handled.
By default these coercion functions will coerce GRanges
elements to a
character vector.
Similarly, GRanges
represented as a character column can be coerced to the
ranges element of a GRanges
object.
First let’s coerce from a tibble
(or S3 data.frame
) to a GRanges
library(tidyverse)
library(extraChIPs)
set.seed(73)
df <- tibble(
range = c("chr1:1-10:+", "chr1:5-10:+", "chr1:5-6:+"),
gene_id = "gene1",
tx_id = paste0("transcript", 1:3),
score = runif(3)
)
df
## # A tibble: 3 × 4
## range gene_id tx_id score
## <chr> <chr> <chr> <dbl>
## 1 chr1:1-10:+ gene1 transcript1 0.442
## 2 chr1:5-10:+ gene1 transcript2 0.0831
## 3 chr1:5-6:+ gene1 transcript3 0.615
gr <- colToRanges(df, "range")
gr
## GRanges object with 3 ranges and 3 metadata columns:
## seqnames ranges strand | gene_id tx_id score
## <Rle> <IRanges> <Rle> | <character> <character> <numeric>
## [1] chr1 1-10 + | gene1 transcript1 0.4423369
## [2] chr1 5-10 + | gene1 transcript2 0.0831099
## [3] chr1 5-6 + | gene1 transcript3 0.6146112
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
Coercion back to a tibble
will place the ranges as a character column by
default.
However, this can be turned off and the conventional coercion from
as.data.frame
will instead be applied, internally wrapped in as_tibble()
as_tibble(gr)
## # A tibble: 3 × 4
## range gene_id tx_id score
## <chr> <chr> <chr> <dbl>
## 1 chr1:1-10:+ gene1 transcript1 0.442
## 2 chr1:5-10:+ gene1 transcript2 0.0831
## 3 chr1:5-6:+ gene1 transcript3 0.615
as_tibble(gr, rangeAsChar = FALSE)
## # A tibble: 3 × 8
## seqnames start end width strand gene_id tx_id score
## <fct> <int> <int> <int> <fct> <chr> <chr> <dbl>
## 1 chr1 1 10 10 + gene1 transcript1 0.442
## 2 chr1 5 10 6 + gene1 transcript2 0.0831
## 3 chr1 5 6 2 + gene1 transcript3 0.615
A simple feature which may be useful for printing gene names using rmarkdown
is contained in collapseGenes()
.
Here a character vector of gene names is collapsed into a glue
object of
length `, with gene names rendered in italics by default.
gn <- c("Gene1", "Gene2", "Gene3")
collapseGenes(gn)
Gene1, Gene2 and Gene3
The formation of consensus peaks incorporating ranges from multiple replicates
is a key part of many ChIP-Seq analyses.
A common format returned by tools such as mcas2 callpeak
is the narrowPeak
(or broadPeak
) format.
Sets of these across multiple replicates can imported using the function
importPeaks()
, which returns a GRangesList()
fl <- system.file(
c("extdata/ER_1.narrowPeak", "extdata/ER_2.narrowPeak"),
package = "extraChIPs"
)
peaks <- importPeaks(fl)
names(peaks) <- c("ER_1", "ER_2")
In the above we have loaded the peaks from two replicates from the Estrogen
Receptor (ER) in T-47D cells.
To form consensus peaks we can place a restriction on the number of replicates
an overlapping peak needs to appear in.
By default, the function makeConsensus()
sets the proportion to be zero
(p = 0)
so all peaks are retained.
Note that a logical vector/column is returned for each replicate, along with
the number of replicates the consensus peak is derived from.
makeConsensus(peaks)
## GRanges object with 14 ranges and 3 metadata columns:
## seqnames ranges strand | ER_1 ER_2 n
## <Rle> <IRanges> <Rle> | <logical> <logical> <numeric>
## [1] chr1 856458-856640 * | TRUE FALSE 1
## [2] chr1 868541-868839 * | FALSE TRUE 1
## [3] chr1 1008550-1010075 * | TRUE TRUE 2
## [4] chr1 1014770-1016015 * | TRUE TRUE 2
## [5] chr1 1051307-1051918 * | TRUE TRUE 2
## ... ... ... ... . ... ... ...
## [10] chr1 1608098-1608346 * | TRUE TRUE 2
## [11] chr1 1690460-1690641 * | FALSE TRUE 1
## [12] chr1 1790733-1790975 * | TRUE FALSE 1
## [13] chr1 1878927-1879257 * | TRUE TRUE 2
## [14] chr1 1900588-1900902 * | TRUE FALSE 1
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
However, we may wish for peaks to appear in all replicates, so we can set the
argument p = 1
(or any other value \(0 \leq p \leq 1\)).
makeConsensus(peaks, p = 1)
## GRanges object with 6 ranges and 3 metadata columns:
## seqnames ranges strand | ER_1 ER_2 n
## <Rle> <IRanges> <Rle> | <logical> <logical> <numeric>
## [1] chr1 1008550-1010075 * | TRUE TRUE 2
## [2] chr1 1014770-1016015 * | TRUE TRUE 2
## [3] chr1 1051307-1051918 * | TRUE TRUE 2
## [4] chr1 1368372-1369009 * | TRUE TRUE 2
## [5] chr1 1608098-1608346 * | TRUE TRUE 2
## [6] chr1 1878927-1879257 * | TRUE TRUE 2
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
In addition, we may wish to keep the values from the mcols
as part of our
consensus peaks, such as the qValue
.
This can be specified using the var
argument, and will return a
CompressedList
as returned by reduceMC()
, seen below.
makeConsensus(peaks, p = 1, var = "qValue")
## GRanges object with 6 ranges and 4 metadata columns:
## seqnames ranges strand | qValue ER_1 ER_2
## <Rle> <IRanges> <Rle> | <NumericList> <logical> <logical>
## [1] chr1 1008550-1010075 * | 635.748,605.040 TRUE TRUE
## [2] chr1 1014770-1016015 * | 95.1223,78.3953 TRUE TRUE
## [3] chr1 1051307-1051918 * | 65.5538,95.9677 TRUE TRUE
## [4] chr1 1368372-1369009 * | 22.5483,29.1231 TRUE TRUE
## [5] chr1 1608098-1608346 * | 72.3235,64.8439 TRUE TRUE
## [6] chr1 1878927-1879257 * | 33.8900,14.4909 TRUE TRUE
## n
## <numeric>
## [1] 2
## [2] 2
## [3] 2
## [4] 2
## [5] 2
## [6] 2
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
We could even identify the peak centre and pass these to the set of consensus peaks for downstream peak re-centreing.
library(plyranges)
peaks %>%
endoapply(mutate, centre = start + peak) %>%
makeConsensus(p = 1, var = "centre")
## GRanges object with 6 ranges and 4 metadata columns:
## seqnames ranges strand | centre ER_1 ER_2
## <Rle> <IRanges> <Rle> | <NumericList> <logical> <logical>
## [1] chr1 1008550-1010075 * | 1009212,1009212 TRUE TRUE
## [2] chr1 1014770-1016015 * | 1014981,1014949 TRUE TRUE
## [3] chr1 1051307-1051918 * | 1051565,1051634 TRUE TRUE
## [4] chr1 1368372-1369009 * | 1368613,1368767 TRUE TRUE
## [5] chr1 1608098-1608346 * | 1608247,1608247 TRUE TRUE
## [6] chr1 1878927-1879257 * | 1879087,1879094 TRUE TRUE
## n
## <numeric>
## [1] 2
## [2] 2
## [3] 2
## [4] 2
## [5] 2
## [6] 2
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
We could then find the mean of the peak centres for an averaged centre.
peaks %>%
endoapply(mutate, centre = start + peak) %>%
makeConsensus(p = 1, var = "centre") %>%
mutate(centre = vapply(centre, mean, numeric(1)))
## GRanges object with 6 ranges and 4 metadata columns:
## seqnames ranges strand | centre ER_1 ER_2 n
## <Rle> <IRanges> <Rle> | <numeric> <logical> <logical> <numeric>
## [1] chr1 1008550-1010075 * | 1009212 TRUE TRUE 2
## [2] chr1 1014770-1016015 * | 1014965 TRUE TRUE 2
## [3] chr1 1051307-1051918 * | 1051600 TRUE TRUE 2
## [4] chr1 1368372-1369009 * | 1368690 TRUE TRUE 2
## [5] chr1 1608098-1608346 * | 1608247 TRUE TRUE 2
## [6] chr1 1878927-1879257 * | 1879090 TRUE TRUE 2
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
mcols()
The standard set operations implemented in the package GenomicRanges
will
always drop the mcols
element by default.
The extraChIPs
functions reduceMC()
, setdiffMC()
, intersectMC()
and
unionMC()
all produce the same output as their similarly-named functions,
however, the mcols()
elements in the query object are also returned.
Where required, columns are coerced into CompressedList
columns.
This can particularly useful when needed to propagate the information contained
in the initial ranges through to subsequent analytic steps
GRanges
objectsThe classical approach to defining TSS regions for a set of transcripts would be
to use the function resize
()`, setting the width as 1.
tss <- resize(gr, width = 1)
tss
## GRanges object with 3 ranges and 3 metadata columns:
## seqnames ranges strand | gene_id tx_id score
## <Rle> <IRanges> <Rle> | <character> <character> <numeric>
## [1] chr1 1 + | gene1 transcript1 0.4423369
## [2] chr1 5 + | gene1 transcript2 0.0831099
## [3] chr1 5 + | gene1 transcript3 0.6146112
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
As we can see, two transcripts start at position 5, so we may choose to reduce
this, which would lose the mcols
element.
The alternative reduceMC()
will retain all mcols
.
GenomicRanges::reduce(tss)
## GRanges object with 2 ranges and 0 metadata columns:
## seqnames ranges strand
## <Rle> <IRanges> <Rle>
## [1] chr1 1 +
## [2] chr1 5 +
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
reduceMC(tss)
## GRanges object with 2 ranges and 3 metadata columns:
## seqnames ranges strand | gene_id tx_id
## <Rle> <IRanges> <Rle> | <character> <CharacterList>
## [1] chr1 1 + | gene1 transcript1
## [2] chr1 5 + | gene1 transcript2,transcript3
## score
## <NumericList>
## [1] 0.442337
## [2] 0.0831099,0.6146112
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
By default, this function will attempt to coerce mcols
to a new mcol
of the
appropriate type, however, when multiple values are inevitable such as for the
tx_id
column above, these will be coerced to a CompressedList
.
The simplification of the multiple values seen in the gene_id
can also be
turned off if desired should repeated values be important for downstream
analysis.
reduceMC(tss, simplify = FALSE)
## GRanges object with 2 ranges and 3 metadata columns:
## seqnames ranges strand | gene_id tx_id
## <Rle> <IRanges> <Rle> | <CharacterList> <CharacterList>
## [1] chr1 1 + | gene1 transcript1
## [2] chr1 5 + | gene1,gene1 transcript2,transcript3
## score
## <NumericList>
## [1] 0.442337
## [2] 0.0831099,0.6146112
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
This allows for simple integration with tidyverse
nesting strategies.
reduceMC(tss, simplify = FALSE) %>%
as_tibble() %>%
unnest(everything())
## # A tibble: 3 × 4
## range gene_id tx_id score
## <chr> <chr> <chr> <dbl>
## 1 chr1:1:+ gene1 transcript1 0.442
## 2 chr1:5:+ gene1 transcript2 0.0831
## 3 chr1:5:+ gene1 transcript3 0.615
Whilst reduceMC
relies on the range-reduction as implemented in
GenomicRanges::reduce()
, some alternative approaches are included, such as
chopMC()
, which finds identical ranges and nests the mcols element as
CompressedList
objects.
chopMC(tss)
## GRanges object with 2 ranges and 3 metadata columns:
## seqnames ranges strand | gene_id tx_id
## <Rle> <IRanges> <Rle> | <character> <CharacterList>
## [1] chr1 1 + | gene1 transcript1
## [2] chr1 5 + | gene1 transcript2,transcript3
## score
## <NumericList>
## [1] 0.442337
## [2] 0.0831099,0.6146112
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
In the case of the object tss
, this output is identical to reduceMC()
,
however, given that there are no identical ranges in gr
the two functions
would behave very differently on that object.
A final operation for simplifying GRanges
objects would be distinctMC()
which is a wrapper to dplyr]::distinct
incorporating both the range and
mcols
.
The columns to search can be called using <data-masking>
approaches as detailed
in the manual.
distinctMC(tss)
## GRanges object with 2 ranges and 0 metadata columns:
## seqnames ranges strand
## <Rle> <IRanges> <Rle>
## [1] chr1 1 +
## [2] chr1 5 +
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
distinctMC(tss, gene_id)
## GRanges object with 2 ranges and 1 metadata column:
## seqnames ranges strand | gene_id
## <Rle> <IRanges> <Rle> | <character>
## [1] chr1 1 + | gene1
## [2] chr1 5 + | gene1
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
GRanges
ObjectsWhilst reduce/reduceMC
is applied to a single GRanges
object, the set
operation functions intersect
, setdiff
and union
are valuable approaches
for comparing ranges.
Using the *MC()
functions will retain mcols
elements from the query range.
peaks <- GRanges(c("chr1:1-5", "chr1:9-12:*"))
peaks$peak_id <- c("peak1", "peak2")
GenomicRanges::intersect(gr, peaks, ignore.strand = TRUE)
## GRanges object with 2 ranges and 0 metadata columns:
## seqnames ranges strand
## <Rle> <IRanges> <Rle>
## [1] chr1 1-5 *
## [2] chr1 9-10 *
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
intersectMC(gr, peaks, ignore.strand = TRUE)
## GRanges object with 2 ranges and 3 metadata columns:
## seqnames ranges strand | gene_id
## <Rle> <IRanges> <Rle> | <character>
## [1] chr1 1-5 * | gene1
## [2] chr1 9-10 * | gene1
## tx_id score
## <CharacterList> <NumericList>
## [1] transcript1,transcript2,transcript3 0.4423369,0.0831099,0.6146112
## [2] transcript1,transcript2 0.4423369,0.0831099
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
setdiffMC(gr, peaks, ignore.strand = TRUE)
## GRanges object with 1 range and 3 metadata columns:
## seqnames ranges strand | gene_id
## <Rle> <IRanges> <Rle> | <character>
## [1] chr1 6-8 * | gene1
## tx_id score
## <CharacterList> <NumericList>
## [1] transcript1,transcript2,transcript3 0.4423369,0.0831099,0.6146112
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
unionMC(gr, peaks, ignore.strand = TRUE)
## GRanges object with 1 range and 3 metadata columns:
## seqnames ranges strand | gene_id
## <Rle> <IRanges> <Rle> | <character>
## [1] chr1 1-12 * | gene1
## tx_id score
## <CharacterList> <NumericList>
## [1] transcript1,transcript2,transcript3 0.4423369,0.0831099,0.6146112
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
There is a performance overhead to preparation of mcols as CompressedList
objects and all mcols
in the query object will be returned.
If only wishing to retain a subset of mcols
, these should be selected prior
to passing to these functions.
gr %>%
select(tx_id) %>%
intersectMC(peaks, ignore.strand = TRUE)
## GRanges object with 2 ranges and 1 metadata column:
## seqnames ranges strand | tx_id
## <Rle> <IRanges> <Rle> | <CharacterList>
## [1] chr1 1-5 * | transcript1,transcript2,transcript3
## [2] chr1 9-10 * | transcript1,transcript2
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
Whilst the functions findOverlaps()
and overlapsAny()
are extremely
useful, the addition of propOverlap()
returns a numeric vector with
the proportion of each query range (x
) which overlaps any range in the
subject range (y
)
propOverlap(gr, peaks)
## [1] 0.7 0.5 0.5
This is also extended to enable comparison across multiple features and to classify each peak by which features that it overlaps the most strongly.
bestOverlap(gr, peaks, var = "peak_id")
## [1] "peak1" "peak2" "peak1"
In addition to standard set operations, one set of ranges can be used to
partition another set of ranges, returning mcols
from both ranges.
Ranges from the query range (x
) are returned after being partitioned by the
ranges in the subject range (y
).
Subject ranges used for partitioning must be non-overlapping, and if
overlapping ranges are provided, these will be reduced prior to partitioning.
This enables the identification of specific ranges from the query range (x
)
which overlap ranges from the subject range (y
)
Under this approach, mcols
from both query
and subject
ranges will be
returned to enable the clear ranges which are common and distinct within the
two sets of ranges.
partitionRanges(gr, peaks)
## GRanges object with 5 ranges and 4 metadata columns:
## seqnames ranges strand | peak_id gene_id
## <Rle> <IRanges> <Rle> | <character> <character>
## [1] chr1 1-5 + | peak1 gene1
## [2] chr1 5 + | peak1 gene1
## [3] chr1 6 + | <NA> gene1
## [4] chr1 6-8 + | <NA> gene1
## [5] chr1 9-10 + | peak2 gene1
## tx_id score
## <CharacterList> <NumericList>
## [1] transcript1 0.442337
## [2] transcript2,transcript3 0.0831099,0.6146112
## [3] transcript3 0.614611
## [4] transcript1,transcript2 0.4423369,0.0831099
## [5] transcript1,transcript2 0.4423369,0.0831099
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
Whilst this shares some similarity with intersectMC()
the additional
capabilities provide greater flexibility.
partitionRanges(gr, peaks) %>%
subset(is.na(peak_id))
## GRanges object with 2 ranges and 4 metadata columns:
## seqnames ranges strand | peak_id gene_id
## <Rle> <IRanges> <Rle> | <character> <character>
## [1] chr1 6 + | <NA> gene1
## [2] chr1 6-8 + | <NA> gene1
## tx_id score
## <CharacterList> <NumericList>
## [1] transcript3 0.614611
## [2] transcript1,transcript2 0.4423369,0.0831099
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
Using the function stitchRanges()
we are able to join together sets of nearby
ranges, but with the option of placing clear barriers between ranges, across
which ranges cannot be joined.
This may be useful if joining enhancers to form putative super-enhancers, but
explicitly omitting defined promoter regions.
enh <- GRanges(c("chr1:1-10", "chr1:101-110", "chr1:181-200"))
prom <- GRanges("chr1:150:+")
se <- stitchRanges(enh, exclude = prom, maxgap = 100)
se
## GRanges object with 2 ranges and 0 metadata columns:
## seqnames ranges strand
## <Rle> <IRanges> <Rle>
## [1] chr1 1-110 *
## [2] chr1 181-200 *
## -------
## seqinfo: 1 sequence from an unspecified genome; no seqlengths
As a visualisation (below) ranges within 100bp were stitched together, however the region defined as a ‘promoter’ acted as a barrier and ranges were not stitched together across this barrier.
sessionInfo()
## R version 4.2.2 (2022-10-31)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 20.04.5 LTS
##
## Matrix products: default
## BLAS: /home/biocbuild/bbs-3.16-bioc/R/lib/libRblas.so
## LAPACK: /home/biocbuild/bbs-3.16-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] stats4 stats graphics grDevices utils datasets methods
## [8] base
##
## other attached packages:
## [1] plyranges_1.18.0 extraChIPs_1.2.4
## [3] rtracklayer_1.58.0 BiocParallel_1.32.5
## [5] csaw_1.32.0 SummarizedExperiment_1.28.0
## [7] Biobase_2.58.0 MatrixGenerics_1.10.0
## [9] matrixStats_0.63.0 Rsamtools_2.14.0
## [11] Biostrings_2.66.0 XVector_0.38.0
## [13] GenomicRanges_1.50.2 GenomeInfoDb_1.34.8
## [15] IRanges_2.32.0 S4Vectors_0.36.1
## [17] BiocGenerics_0.44.0 forcats_1.0.0
## [19] stringr_1.5.0 dplyr_1.1.0
## [21] purrr_1.0.1 readr_2.1.3
## [23] tidyr_1.3.0 tibble_3.1.8
## [25] ggplot2_3.4.0 tidyverse_1.3.2
## [27] BiocStyle_2.26.0
##
## loaded via a namespace (and not attached):
## [1] utf8_1.2.3 tidyselect_1.2.0
## [3] RSQLite_2.2.20 AnnotationDbi_1.60.0
## [5] htmlwidgets_1.6.1 grid_4.2.2
## [7] munsell_0.5.0 codetools_0.2-18
## [9] interp_1.1-3 withr_2.5.0
## [11] colorspace_2.1-0 filelock_1.0.2
## [13] highr_0.10 knitr_1.42
## [15] rstudioapi_0.14 ggside_0.2.2
## [17] labeling_0.4.2 GenomeInfoDbData_1.2.9
## [19] polyclip_1.10-4 farver_2.1.1
## [21] bit64_4.0.5 vctrs_0.5.2
## [23] generics_0.1.3 lambda.r_1.2.4
## [25] xfun_0.36 biovizBase_1.46.0
## [27] timechange_0.2.0 BiocFileCache_2.6.0
## [29] R6_2.5.1 doParallel_1.0.17
## [31] clue_0.3-64 locfit_1.5-9.7
## [33] AnnotationFilter_1.22.0 bitops_1.0-7
## [35] cachem_1.0.6 DelayedArray_0.24.0
## [37] assertthat_0.2.1 BiocIO_1.8.0
## [39] scales_1.2.1 nnet_7.3-18
## [41] googlesheets4_1.0.1 gtable_0.3.1
## [43] ensembldb_2.22.0 rlang_1.0.6
## [45] GlobalOptions_0.1.2 splines_4.2.2
## [47] lazyeval_0.2.2 gargle_1.3.0
## [49] dichromat_2.0-0.1 broom_1.0.3
## [51] checkmate_2.1.0 BiocManager_1.30.19
## [53] yaml_2.3.7 modelr_0.1.10
## [55] GenomicFeatures_1.50.4 backports_1.4.1
## [57] Hmisc_4.7-2 EnrichedHeatmap_1.28.0
## [59] tools_4.2.2 bookdown_0.32
## [61] ellipsis_0.3.2 jquerylib_0.1.4
## [63] RColorBrewer_1.1-3 Rcpp_1.0.10
## [65] base64enc_0.1-3 progress_1.2.2
## [67] zlibbioc_1.44.0 RCurl_1.98-1.10
## [69] prettyunits_1.1.1 rpart_4.1.19
## [71] deldir_1.0-6 GetoptLong_1.0.5
## [73] ggrepel_0.9.2 haven_2.5.1
## [75] cluster_2.1.4 fs_1.6.0
## [77] ComplexUpset_1.3.3 magrittr_2.0.3
## [79] magick_2.7.3 data.table_1.14.6
## [81] futile.options_1.0.1 circlize_0.4.15
## [83] reprex_2.0.2 googledrive_2.0.0
## [85] ProtGenerics_1.30.0 hms_1.1.2
## [87] patchwork_1.1.2 evaluate_0.20
## [89] XML_3.99-0.13 VennDiagram_1.7.3
## [91] jpeg_0.1-10 readxl_1.4.1
## [93] gridExtra_2.3 shape_1.4.6
## [95] compiler_4.2.2 biomaRt_2.54.0
## [97] crayon_1.5.2 htmltools_0.5.4
## [99] tzdb_0.3.0 Formula_1.2-4
## [101] lubridate_1.9.1 DBI_1.1.3
## [103] tweenr_2.0.2 formatR_1.14
## [105] dbplyr_2.3.0 ComplexHeatmap_2.14.0
## [107] MASS_7.3-58.2 GenomicInteractions_1.32.0
## [109] rappdirs_0.3.3 Matrix_1.5-3
## [111] cli_3.6.0 parallel_4.2.2
## [113] Gviz_1.42.0 metapod_1.6.0
## [115] igraph_1.3.5 pkgconfig_2.0.3
## [117] GenomicAlignments_1.34.0 foreign_0.8-84
## [119] xml2_1.3.3 InteractionSet_1.26.1
## [121] foreach_1.5.2 bslib_0.4.2
## [123] rvest_1.0.3 VariantAnnotation_1.44.0
## [125] digest_0.6.31 rmarkdown_2.20
## [127] cellranger_1.1.0 htmlTable_2.4.1
## [129] edgeR_3.40.2 restfulr_0.0.15
## [131] curl_5.0.0 rjson_0.2.21
## [133] lifecycle_1.0.3 jsonlite_1.8.4
## [135] futile.logger_1.4.3 viridisLite_0.4.1
## [137] limma_3.54.1 BSgenome_1.66.2
## [139] fansi_1.0.4 pillar_1.8.1
## [141] lattice_0.20-45 KEGGREST_1.38.0
## [143] fastmap_1.1.0 httr_1.4.4
## [145] survival_3.5-0 glue_1.6.2
## [147] png_0.1-8 iterators_1.0.14
## [149] bit_4.0.5 ggforce_0.4.1
## [151] stringi_1.7.12 sass_0.4.5
## [153] blob_1.2.3 latticeExtra_0.6-30
## [155] memoise_2.0.1