FieldEffectCrc 1.6.0
Data included in this package was generated by harmonizing all publicly
available bulk RNA-seq samples from human primary colorectal tissue available
through NCBI’s Sequence Read Archive and
database of Genotypes and Phenotypes, NCI’s
Genomic Data Commons, and the NIH-funded
BarcUVa-Seq project. FASTQ files were downloaded
directly or generated from BAM files using
biobambam2. Gene expression
estimates were generated from FASTQ files using
Salmon and aggregated from quant.sf
files using
tximport.
The original processed data are stored as tab-delimited text on
Synapse under Synapse ID
syn22237139 and
packaged as SummarizedExperiment objects on ExperimentHub to facilitate
reproduction and extension of results published in Dampier et al. (PMCID:
PMC7386360, PMID: 32764205).
The following example demonstrates how to download the dataset from
ExperimentHub.
First, make sure the Bioconductor packages BiocManager,
SummarizedExperiment, and ExperimentHub are installed:
if (!requireNamespace("BiocManager", quietly=TRUE)) {
install.packages("BiocManager")
}
BiocManager::install(c("SummarizedExperiment", "ExperimentHub", "FieldEffectCrc"))Second, load the SummarizedExperiment and ExperimentHub packages:
library(SummarizedExperiment)## Loading required package: MatrixGenerics## Loading required package: matrixStats##
## Attaching package: 'MatrixGenerics'## The following objects are masked from 'package:matrixStats':
##
## colAlls, colAnyNAs, colAnys, colAvgsPerRowSet, colCollapse,
## colCounts, colCummaxs, colCummins, colCumprods, colCumsums,
## colDiffs, colIQRDiffs, colIQRs, colLogSumExps, colMadDiffs,
## colMads, colMaxs, colMeans2, colMedians, colMins, colOrderStats,
## colProds, colQuantiles, colRanges, colRanks, colSdDiffs, colSds,
## colSums2, colTabulates, colVarDiffs, colVars, colWeightedMads,
## colWeightedMeans, colWeightedMedians, colWeightedSds,
## colWeightedVars, rowAlls, rowAnyNAs, rowAnys, rowAvgsPerColSet,
## rowCollapse, rowCounts, rowCummaxs, rowCummins, rowCumprods,
## rowCumsums, rowDiffs, rowIQRDiffs, rowIQRs, rowLogSumExps,
## rowMadDiffs, rowMads, rowMaxs, rowMeans2, rowMedians, rowMins,
## rowOrderStats, rowProds, rowQuantiles, rowRanges, rowRanks,
## rowSdDiffs, rowSds, rowSums2, rowTabulates, rowVarDiffs, rowVars,
## rowWeightedMads, rowWeightedMeans, rowWeightedMedians,
## rowWeightedSds, rowWeightedVars## Loading required package: GenomicRanges## Loading required package: stats4## Loading required package: BiocGenerics##
## Attaching package: 'BiocGenerics'## The following objects are masked from 'package:stats':
##
## IQR, mad, sd, var, xtabs## The following objects are masked from 'package:base':
##
## Filter, Find, Map, Position, Reduce, anyDuplicated, append,
## as.data.frame, basename, cbind, colnames, dirname, do.call,
## duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
## lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
## pmin.int, rank, rbind, rownames, sapply, setdiff, sort, table,
## tapply, union, unique, unsplit, which.max, which.min## Loading required package: S4Vectors##
## Attaching package: 'S4Vectors'## The following objects are masked from 'package:base':
##
## I, expand.grid, unname## Loading required package: IRanges## Loading required package: GenomeInfoDb## Loading required package: Biobase## Welcome to Bioconductor
##
## Vignettes contain introductory material; view with
## 'browseVignettes()'. To cite Bioconductor, see
## 'citation("Biobase")', and for packages 'citation("pkgname")'.##
## Attaching package: 'Biobase'## The following object is masked from 'package:MatrixGenerics':
##
## rowMedians## The following objects are masked from 'package:matrixStats':
##
## anyMissing, rowMedianslibrary(ExperimentHub)## Loading required package: AnnotationHub## Loading required package: BiocFileCache## Loading required package: dbplyr##
## Attaching package: 'AnnotationHub'## The following object is masked from 'package:Biobase':
##
## cacheThird, find the FieldEffectCrc data objects and look at their descriptions:
hub = ExperimentHub()## snapshotDate(): 2022-04-19## simply list the resource names
ns <- listResources(hub, "FieldEffectCrc")
ns## [1] "cohort A from Dampier et al." "cohort B from Dampier et al."
## [3] "cohort C from Dampier et al."## query the hub for full metadata
crcData <- query(hub, "FieldEffectCrc")
crcData## ExperimentHub with 3 records
## # snapshotDate(): 2022-04-19
## # $dataprovider: Synapse
## # $species: Homo sapiens
## # $rdataclass: SummarizedExperiment
## # additional mcols(): taxonomyid, genome, description,
## # coordinate_1_based, maintainer, rdatadateadded, preparerclass, tags,
## # rdatapath, sourceurl, sourcetype
## # retrieve records with, e.g., 'object[["EH3524"]]'
##
## title
## EH3524 | cohort A from Dampier et al.
## EH3525 | cohort B from Dampier et al.
## EH3526 | cohort C from Dampier et al.## extract metadata
df <- mcols(crcData)
df## DataFrame with 3 rows and 15 columns
## title dataprovider species taxonomyid genome
## <character> <character> <character> <integer> <character>
## EH3524 cohort A from Dampie.. Synapse Homo sapiens 9606 GRCh38
## EH3525 cohort B from Dampie.. Synapse Homo sapiens 9606 GRCh38
## EH3526 cohort C from Dampie.. Synapse Homo sapiens 9606 GRCh38
## description coordinate_1_based maintainer
## <character> <integer> <character>
## EH3524 Salmon-generated tra.. 1 Chris Dampier <chd5n..
## EH3525 Salmon-generated tra.. 1 Chris Dampier <chd5n..
## EH3526 Salmon-generated tra.. 1 Chris Dampier <chd5n..
## rdatadateadded preparerclass
## <character> <character>
## EH3524 2020-07-10 FieldEffectCrc
## EH3525 2020-07-10 FieldEffectCrc
## EH3526 2020-07-10 FieldEffectCrc
## tags rdataclass
## <AsIs> <character>
## EH3524 ExperimentData,ReproducibleResearch,Tissue,... SummarizedExperiment
## EH3525 ExperimentData,ReproducibleResearch,Tissue,... SummarizedExperiment
## EH3526 ExperimentData,ReproducibleResearch,Tissue,... SummarizedExperiment
## rdatapath sourceurl sourcetype
## <character> <character> <character>
## EH3524 FieldEffectCrc/Field.. https://www.synapse... tar.gz
## EH3525 FieldEffectCrc/Field.. https://www.synapse... tar.gz
## EH3526 FieldEffectCrc/Field.. https://www.synapse... tar.gz## see where the cache is stored
hc <- hubCache(crcData)
hc## [1] "/home/biocbuild/.cache/R/ExperimentHub"Fourth, explore the metadata of a particular file. Let’s look at the data for cohort A:
md <- hub["EH3524"]
md## ExperimentHub with 1 record
## # snapshotDate(): 2022-04-19
## # names(): EH3524
## # package(): FieldEffectCrc
## # $dataprovider: Synapse
## # $species: Homo sapiens
## # $rdataclass: SummarizedExperiment
## # $rdatadateadded: 2020-07-10
## # $title: cohort A from Dampier et al.
## # $description: Salmon-generated transcript-level abundance estimates summar...
## # $taxonomyid: 9606
## # $genome: GRCh38
## # $sourcetype: tar.gz
## # $sourceurl: https://www.synapse.org/#!Synapse:syn22237139/files/
## # $sourcesize: NA
## # $tags: c("ExperimentData", "ReproducibleResearch", "Tissue",
## # "Homo_sapiens_Data", "ColonCancerData", "RNASeqData",
## # "ExpressionData", "ExperimentHub")
## # retrieve record with 'object[["EH3524"]]'Fifth, download the data object itself as a SummarizedExperiment:
## using resource ID
data1 <- hub[["EH3524"]]## snapshotDate(): 2022-04-19## see ?FieldEffectCrc and browseVignettes('FieldEffectCrc') for documentation## loading from cachedata1## class: SummarizedExperiment
## dim: 37361 834
## metadata(4): cohort build assay feature
## assays(3): abundance counts length
## rownames(37361): ENSG00000000003 ENSG00000000005 ... ENSG00000283698
## ENSG00000283700
## rowData names(0):
## colnames(834): AMC_10 AMC_12 ... VM1421 VM1422
## colData names(27): dirName projId ... percMap data## using loadResources()
data2 <- loadResources(hub, "FieldEffectCrc", "cohort A")## snapshotDate(): 2022-04-19## see ?FieldEffectCrc and browseVignettes('FieldEffectCrc') for documentation## loading from cachedata2## [[1]]
## class: SummarizedExperiment
## dim: 37361 834
## metadata(4): cohort build assay feature
## assays(3): abundance counts length
## rownames(37361): ENSG00000000003 ENSG00000000005 ... ENSG00000283698
## ENSG00000283700
## rowData names(0):
## colnames(834): AMC_10 AMC_12 ... VM1421 VM1422
## colData names(27): dirName projId ... percMap dataSince the data is a SummarizedExperiment, the different phenotypes can be
accessed using colData(). The phenotype of interest in the field effect
analysis is referred to as sampType:
summary(colData(data1)$sampType)## CRC HLT NAT
## 311 462 61To immediately access the count data for the 834 samples in cohort A, load the
SummarizedExperiment object for cohort A as demonstrated in the
Installation section immediately above. Then use the assays()
accessor function to extract the counts assay, which is the second assay in
the SummarizedExperiment:
se <- data1
counts1 <- assays(se)[["counts"]]Note that assay(), the singular as opposed to plural, will by default extract
the first assay element from a SummarizedExperiment but will extract the ’i’th
assay element with the assay(se, i) syntax:
counts2 <- assay(se, 2)The two alternatives are equivalent:
all(counts1==counts2)## [1] TRUEWe are interested in conducting a differential expression analysis using
DESeq2 to identify genes over- and under-expressed in different colorectal
tissue phenotypes. Due to substantial technical artifacts between single-end and
paired-end library formats observed in the full FieldEffectCrc data set,
samples are grouped according to library format, with paired-end samples in
cohorts A and B and single-end samples in cohort C. Cohort A is the primary
analysis cohort and the one we want to use to discover differentially expressed
genes. To begin, load cohort A as demonstrated in the
Installation section immediately above if not already loaded.
In the following steps, we will use DESeq2 to perform differential expression
analysis on expression data stored in the SummarizedExperiment object for
cohort A. We will adjust for latent batch effects with surrogate variable
analysis as implemented in the sva package. This analysis would typically
consume excess memory and time, so for the purpose of demonstration, we perform
the analysis on a small subset of the full data.
In order to take advantage of the feature lengths preserved by tximport, we
will recreate a tximport object from the SummarizedExperiment object
downloaded from ExperimentHub and use the DESeqDataSetFromTximport()
function to create the DESeqDataSet object. Alternatively, the
SummarizedExperiment object itself could be used to create the DESeqDataSet
object using the DESeqDataSet() function, but the order of the assays would
need to be re-arranged and the counts would need to be rounded, as the
DESeqDataSet() function expects counts with integer values to be the first
assay in a SummarizedExperiment object, and abundance with floating-point
values is the first assay in the FieldEffectCrc objects to facilitate
conversion to tximport objects. Such a re-ordering is facilitated by the FieldEffectCrc::reorder_assays() function. Yet another option is to extract
the counts assay as a matrix and use the DESeqDataSetFromMatrix() function
to create the DESeqDataSet object. Since there are probably some benefits to
feature length normalization as implemented in DESeq2 when such information is
available, we demonstrate creation of the tximport object.
First, make the tximport object, which is just an object of class list from
base R:
## manual construction
txi <- as.list(assays(se))
txi$countsFromAbundance <- "no"
## convenience function construction
txi <- make_txi(se)Next, we could assign the clinical annotations from colData(se) to an
S4Vectors::DataFrame or a base::data.frame object, since that is what
DESeqDataSetFromTximport() expects for the colData argument. However, the
colData slot of a SummarizedExperiment object already stores the clinical
annotations as an S4Vectors::DataFrame, so we are ready to create the
DESeqDataSet object:
if (!requireNamespace("DESeq2", quietly=TRUE)) {
BiocManager::install("DESeq2")
}
library(DESeq2)
dds <- DESeqDataSetFromTximport(txi, colData(se), ~ sampType)## using counts and average transcript lengths from tximportNote that we are interested in expression differences between phenotypes, which
are coded in the sampType field, so we include sampType in our preliminary
design.
Normally, we would pre-filter genes to select genes whose quantities are likely to be estimated accurately. We could use something like the following code, which selects for genes with a count greater than 10 RNA molecules in at least a third of all samples:
countLimit <- 10
sampleLimit <- (1/3) * ncol(dds)
keep <- rowSums( counts(dds) > countLimit ) >= sampleLimit
dds <- dds[keep, ]However, to expedite subsequent computational steps in this demonstration, we will select a random subset of genes and samples for analysis and then filter out any gene with a count less than 10 across all samples:
r <- sample(seq_len(nrow(dds)), 6000)
c <- sample(seq_len(ncol(dds)), 250)
dds <- dds[r, c]
r <- rowSums(counts(dds)) >= 10
dds <- dds[r, ]Amazingly, DESeq2 estimates size factors (i.e. normalization factors based on
library size and feature length) and dispersions for every gene, fits negative
binomial models for every gene, and performs a Wald test for every gene in a
single function:
dds <- DESeq(dds)## estimating size factors## using 'avgTxLength' from assays(dds), correcting for library size## estimating dispersions## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## fitting model and testing## -- replacing outliers and refitting for 179 genes
## -- DESeq argument 'minReplicatesForReplace' = 7
## -- original counts are preserved in counts(dds)## estimating dispersions## fitting model and testingPretty incredible. Unfortunately, we have to do some more work before we can fit
useful models. The size factor estimates are the key result of the DESeq()
function at this stage.
If we trusted our high-throughput assays to be perfect representations of the
underlying biology they were designed to measure, we would be ready to test for
differential expression. However, our dataset is composed of samples from
several studies collected and processed in various ways over several years, so
we have reason to suspect there are latent factors driving non-biological
variation in the expression data. Fortunately, we can use sva to estimate the
latent factors and include them in our DESeq2 design.
For a full tutorial on how to use the sva package, see the package
vignette.
For this demonstration, we will provide only cursory motivations for the code.
The sva functions will take the normalized count data as well as model
matrices as inputs. The full model matrix should include the variables of
interest (e.g. sampType) as well as adjustment variables (e.g. sex, age),
which we do not use here. The null model matrix should include adjustment
variables only (i.e. no variables of interest). Without any adjustment
variables, the null model includes an intercept term alone.
dat <- counts(dds, normalized=TRUE) ## extract the normalized counts
mod <- model.matrix(~sampType, data=colData(dds)) ## set the full model
mod0 <- model.matrix(~1, data=colData(dds)) ## set the null modelThe sva package offers two approaches for estimating the number of surrogate
variables that should be included in a differential expression model, the Buja
Eyuboglu and Leek approaches. Buja Eyuboglu is the default approach.
if (!requireNamespace("sva", quietly=TRUE)) {
BiocManager::install("sva")
}
library(sva)## Loading required package: mgcv## Loading required package: nlme##
## Attaching package: 'nlme'## The following object is masked from 'package:IRanges':
##
## collapse## This is mgcv 1.8-40. For overview type 'help("mgcv-package")'.## Loading required package: genefilter##
## Attaching package: 'genefilter'## The following objects are masked from 'package:MatrixGenerics':
##
## rowSds, rowVars## The following objects are masked from 'package:matrixStats':
##
## rowSds, rowVars## Loading required package: BiocParallelnsv <- num.sv(dat, mod, method=c("be"), B=20, seed=1) ## Buja Eyuboglu methodThe crucial function for estimating surrogate variables in RNA-seq data is
svaseq():
svs <- svaseq(dat, mod, mod0, n.sv=nsv)## Number of significant surrogate variables is: 1
## Iteration (out of 5 ):1 2 3 4 5The output is a list of 4 elements, the first of which is the latent factor
estimate with a vector for each factor. The name of this element is sv.
We want to include the latent factors as adjustment variables in our statistical
testing. Here, we add the surrogate variables to colData and update the
DESeqDataSet design formula:
for (i in seq_len(svs$n.sv)) {
newvar <- paste0("sv", i)
colData(dds)[ , newvar] <- svs$sv[, i]
}
nvidx <- (ncol(colData(dds)) - i + 1):ncol(colData(dds))
newvars <- colnames(colData(dds))[nvidx]
d <- formula(
paste0("~", paste(paste(newvars, collapse="+"), "sampType", sep="+"))
)
design(dds) <- dNow that we have the surrogate variables in the DESeqDataSet, we can perform
the differential expression analysis we set out to do:
dds <- DESeq(dds)## using pre-existing normalization factors## estimating dispersions## found already estimated dispersions, replacing these## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## fitting model and testingWe want to extract results from each of the following 3 comparisons:
With three categories under consideration, the DESeq() function call tests the
first level against the other two, but the second and third levels are not
tested against each other. (Note that the order of the levels is simply
alphabetical if they are not explicitly set.) Furthermore, the results reported
with the results() function are for the comparison of the first level against
the last by default. Therefore, in order to extract all the results of interest,
we set contrasts as follows:
cons <- list()
m <- combn(levels(colData(dds)$sampType), 2)
for (i in seq_len(ncol(m))) {
cons[[i]] <- c("sampType", rev(m[, i]))
names(cons) <- c(
names(cons)[seq_len(length(cons) - 1)], paste(rev(m[, i]), collapse="v")
)
}
res <- list()
for (i in seq_len(length(cons))) {
res[[i]] <- results(dds, contrast=cons[[i]], alpha=0.05) ## default alpha is 0.1
}
names(res) <- names(cons)Let’s take a look at the results:
lapply(res, head)## $HLTvCRC
## log2 fold change (MLE): sampType HLT vs CRC
## Wald test p-value: sampType HLT vs CRC
## DataFrame with 6 rows and 6 columns
## baseMean log2FoldChange lfcSE stat pvalue
## <numeric> <numeric> <numeric> <numeric> <numeric>
## ENSG00000154957 293.5044 0.646549 0.0473436 13.65654 1.84557e-42
## ENSG00000173077 169.6131 1.557108 0.1119817 13.90502 5.90473e-44
## ENSG00000144152 58.2231 0.446506 0.1020773 4.37420 1.21880e-05
## ENSG00000176399 67.3973 2.258659 0.2087515 10.81984 2.77252e-27
## ENSG00000204272 535.0928 -1.286988 0.0632559 -20.34574 5.06452e-92
## ENSG00000131355 25.6655 0.537262 0.2078003 2.58547 9.72451e-03
## padj
## <numeric>
## ENSG00000154957 8.22691e-42
## ENSG00000173077 2.73367e-43
## ENSG00000144152 1.74864e-05
## ENSG00000176399 8.08709e-27
## ENSG00000204272 8.85922e-91
## ENSG00000131355 1.19883e-02
##
## $NATvCRC
## log2 fold change (MLE): sampType NAT vs CRC
## Wald test p-value: sampType NAT vs CRC
## DataFrame with 6 rows and 6 columns
## baseMean log2FoldChange lfcSE stat pvalue
## <numeric> <numeric> <numeric> <numeric> <numeric>
## ENSG00000154957 293.5044 0.239801 0.0964448 2.486404 0.0129041
## ENSG00000173077 169.6131 0.484683 0.2298513 2.108681 0.0349722
## ENSG00000144152 58.2231 0.168162 0.2088455 0.805198 0.4207055
## ENSG00000176399 67.3973 0.715079 0.4274405 1.672932 0.0943407
## ENSG00000204272 535.0928 -0.256193 0.1282467 -1.997654 0.0457541
## ENSG00000131355 25.6655 -0.598485 0.4321897 -1.384775 0.1661214
## padj
## <numeric>
## ENSG00000154957 0.082192
## ENSG00000173077 0.150418
## ENSG00000144152 0.648386
## ENSG00000176399 0.272011
## ENSG00000204272 0.176203
## ENSG00000131355 0.383085
##
## $NATvHLT
## log2 fold change (MLE): sampType NAT vs HLT
## Wald test p-value: sampType NAT vs HLT
## DataFrame with 6 rows and 6 columns
## baseMean log2FoldChange lfcSE stat pvalue
## <numeric> <numeric> <numeric> <numeric> <numeric>
## ENSG00000154957 293.5044 -0.406748 0.0955026 -4.25903 2.05319e-05
## ENSG00000173077 169.6131 -1.072425 0.2272091 -4.71999 2.35853e-06
## ENSG00000144152 58.2231 -0.278344 0.2067894 -1.34603 1.78294e-01
## ENSG00000176399 67.3973 -1.543580 0.4223271 -3.65494 2.57243e-04
## ENSG00000204272 535.0928 1.030796 0.1271259 8.10846 5.12639e-16
## ENSG00000131355 25.6655 -1.135748 0.4286104 -2.64984 8.05306e-03
## padj
## <numeric>
## ENSG00000154957 5.58185e-05
## ENSG00000173077 7.32843e-06
## ENSG00000144152 2.34289e-01
## ENSG00000176399 5.90232e-04
## ENSG00000204272 6.22638e-15
## ENSG00000131355 1.42155e-02lapply(res, summary)##
## out of 6000 with nonzero total read count
## adjusted p-value < 0.05
## LFC > 0 (up) : 2432, 41%
## LFC < 0 (down) : 2667, 44%
## outliers [1] : 0, 0%
## low counts [2] : 0, 0%
## (mean count < 7)
## [1] see 'cooksCutoff' argument of ?results
## [2] see 'independentFiltering' argument of ?results
##
##
## out of 6000 with nonzero total read count
## adjusted p-value < 0.05
## LFC > 0 (up) : 339, 5.7%
## LFC < 0 (down) : 348, 5.8%
## outliers [1] : 0, 0%
## low counts [2] : 0, 0%
## (mean count < 7)
## [1] see 'cooksCutoff' argument of ?results
## [2] see 'independentFiltering' argument of ?results
##
##
## out of 6000 with nonzero total read count
## adjusted p-value < 0.05
## LFC > 0 (up) : 2096, 35%
## LFC < 0 (down) : 1729, 29%
## outliers [1] : 0, 0%
## low counts [2] : 0, 0%
## (mean count < 7)
## [1] see 'cooksCutoff' argument of ?results
## [2] see 'independentFiltering' argument of ?results## $HLTvCRC
## NULL
##
## $NATvCRC
## NULL
##
## $NATvHLT
## NULLsessionInfo()## R version 4.2.0 RC (2022-04-19 r82224)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 20.04.4 LTS
##
## Matrix products: default
## BLAS: /home/biocbuild/bbs-3.15-bioc/R/lib/libRblas.so
## LAPACK: /home/biocbuild/bbs-3.15-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] sva_3.44.0 BiocParallel_1.30.0
## [3] genefilter_1.78.0 mgcv_1.8-40
## [5] nlme_3.1-157 DESeq2_1.36.0
## [7] FieldEffectCrc_1.6.0 ExperimentHub_2.4.0
## [9] AnnotationHub_3.4.0 BiocFileCache_2.4.0
## [11] dbplyr_2.1.1 SummarizedExperiment_1.26.0
## [13] Biobase_2.56.0 GenomicRanges_1.48.0
## [15] GenomeInfoDb_1.32.0 IRanges_2.30.0
## [17] S4Vectors_0.34.0 BiocGenerics_0.42.0
## [19] MatrixGenerics_1.8.0 matrixStats_0.62.0
## [21] BiocStyle_2.24.0
##
## loaded via a namespace (and not attached):
## [1] bitops_1.0-7 bit64_4.0.5
## [3] filelock_1.0.2 RColorBrewer_1.1-3
## [5] httr_1.4.2 tools_4.2.0
## [7] bslib_0.3.1 utf8_1.2.2
## [9] R6_2.5.1 colorspace_2.0-3
## [11] DBI_1.1.2 withr_2.5.0
## [13] tidyselect_1.1.2 bit_4.0.4
## [15] curl_4.3.2 compiler_4.2.0
## [17] cli_3.3.0 DelayedArray_0.22.0
## [19] bookdown_0.26 sass_0.4.1
## [21] scales_1.2.0 rappdirs_0.3.3
## [23] stringr_1.4.0 digest_0.6.29
## [25] rmarkdown_2.14 XVector_0.36.0
## [27] pkgconfig_2.0.3 htmltools_0.5.2
## [29] limma_3.52.0 fastmap_1.1.0
## [31] rlang_1.0.2 RSQLite_2.2.12
## [33] shiny_1.7.1 jquerylib_0.1.4
## [35] generics_0.1.2 jsonlite_1.8.0
## [37] dplyr_1.0.8 RCurl_1.98-1.6
## [39] magrittr_2.0.3 GenomeInfoDbData_1.2.8
## [41] Matrix_1.4-1 munsell_0.5.0
## [43] Rcpp_1.0.8.3 fansi_1.0.3
## [45] lifecycle_1.0.1 edgeR_3.38.0
## [47] stringi_1.7.6 yaml_2.3.5
## [49] zlibbioc_1.42.0 grid_4.2.0
## [51] blob_1.2.3 parallel_4.2.0
## [53] promises_1.2.0.1 crayon_1.5.1
## [55] lattice_0.20-45 Biostrings_2.64.0
## [57] splines_4.2.0 annotate_1.74.0
## [59] KEGGREST_1.36.0 locfit_1.5-9.5
## [61] knitr_1.39 pillar_1.7.0
## [63] RUnit_0.4.32 geneplotter_1.74.0
## [65] XML_3.99-0.9 glue_1.6.2
## [67] BiocVersion_3.15.2 evaluate_0.15
## [69] BiocManager_1.30.17 png_0.1-7
## [71] vctrs_0.4.1 httpuv_1.6.5
## [73] gtable_0.3.0 purrr_0.3.4
## [75] assertthat_0.2.1 cachem_1.0.6
## [77] ggplot2_3.3.5 xfun_0.30
## [79] mime_0.12 xtable_1.8-4
## [81] later_1.3.0 survival_3.3-1
## [83] tibble_3.1.6 AnnotationDbi_1.58.0
## [85] memoise_2.0.1 ellipsis_0.3.2
## [87] interactiveDisplayBase_1.34.0