Description Details Author(s) Examples
Processed RNA-seq data for 1,139 human primary colorectal tissue samples across three phenotypes, including tumor, normal adjacent-to-tumor, and healthy, available as Synapse ID syn22237139 hosted on Synapse:
<https://www.synapse.org/#!Synapse:syn22237139/files/>
Data have been parsed into three SummarizedExperiment
objects available
via ExperimentHub
to facilitate reproducibility and extension of
results from Dampier et al. (PMCID: PMC7386360, PMID: 32764205).
Includes data as well as two simple helper functions to execute common manipulations of the data:
make_txi
: makes a tximport
-style list from a
SummarizedExperiment
object for downstream use
reorder_assays
: reorders the assays of a
SummarizedExperiment
object so that counts is the first assay
See the package vignette for examples of using these data in differential gene expression analysis.
browseVignettes("FieldEffectCrc")
Details of how the SummarizedExperiment
objects were created from count
matrices are available in the inst/scripts/
directory of the source
package in the make-data.R
file.
Chris Dampier
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | ## load ExperimentHub package
library(ExperimentHub)
## load hub
hub <- ExperimentHub::ExperimentHub()
## list resources associated with package
x <- ExperimentHub::listResources(hub, "FieldEffectCrc")
x
## query hub for package resources
r <- AnnotationHub::query(hub, c("FieldEffectCrc"))
r
## download selected resource by position
## output is SummarizedExperiment
## cohort C is smaller than cohort A and quicker to load
data <- r[[3]]
data
## download selected resource by hub id
## output is SummarizedExperiment
data <- r[["EH3526"]]
data
## download selected resource by filter
## output is list of SummarizedExperiments
data <- ExperimentHub::loadResources(hub, "FieldEffectCrc", "cohort C")
data
## make a txi object
se <- r[["EH3526"]]
txi <- make_txi(se)
str(txi)
## move counts to the first assay slot
se <- r[["EH3526"]]
se <- reorder_assays(se)
se
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.