library(GSEABase)
genes_1 <- GeneSet(paste("Gene", 1:20, sep=""), setName="geneSet1")
genes_2 <- GeneSet(paste("Gene", 18:22, sep=""), setName="geneSet2")
geneSets <- GeneSetCollection(genes_1, genes_2)
nGenes(genes_1)
nGenes(geneSets)
subsetGeneSets(geneSets, paste("Gene", 15:20, sep=""))
geneSets_newNames <- setGeneSetNames(geneSets, c("one", "two"))
names(geneSets_newNames)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.