interactivate.DESeqDataSet | R Documentation |
Visualize DESeq2 result in an interactive Shiny app
## S3 method for class 'DESeqDataSet'
interactivate(x, res = DESeq2::results(x), seed = 123, ...)
x |
A |
res |
The object returned by |
seed |
Random seed. It is mainly set for the random colors of annotations. |
... |
Other arguments. |
if(interactive()) {
require(airway)
data(airway)
se = airway
require(DESeq2)
dds = DESeqDataSet(se, design = ~ dex)
keep = rowSums(counts(dds)) >= 10
dds = dds[keep, ]
dds$dex = relevel(dds$dex, ref = "untrt")
dds = DESeq(dds)
interactivate(dds)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.