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