Visualize DESeq2 result in an interactive Shiny app

# S3 method for DESeqDataSet
interactivate(x, res = DESeq2::results(x), seed = 123, ...)

Arguments

x

A DESeqDataSet class object. It is normally returned by DESeq.

res

The object returned by results.

seed

Random seed. It is mainly set for the random colors of annotations.

...

Other arguments.

Examples

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)
}