library(sparrow)
vm <- exampleExpressionSet(do.voom = TRUE)
gsl <- exampleGeneSets()
gsd <- conform(GeneSetDb(gsl), vm)
x <- seas(vm, gsd, c("camera", "fry"), design = vm$design)
path <- "inst/extdata/testdata/test-SparrowResult.rds"
saveRDS(x, path)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.