names(getClass("CollectionType")@subclasses)
## Create a CollectionType and ask for its type
collectionType(ExpressionSetCollection())
## Read two GeneSets from a Broad XML file into a list, verify that
## they are both BroadCollection's. Category / subcategory information
## is unique to Broad collections.
fl <- system.file("extdata", "Broad.xml", package="GSEABase")
sets <- getBroadSets(fl)
sapply(sets, collectionType)
## ExpressionSets are tagged with ExpressionSetCollection; there is no
## 'category' information.
data(sample.ExpressionSet)
gs <- GeneSet(sample.ExpressionSet[100:109],
setName="sample.GeneSet", setIdentifier="123")
collectionType(gs)
## GOCollections are created by reference to GO terms and evidenceCodes
GOCollection("GO:0005488")
## requires library(GO); EntrezIdentifers automatically created
## Not run:
# GeneSet(GOCollection(c("GO:0005488", "GO:0019825"),
# evidenceCode="IDA"))
# ## End(Not run)
Run the code above in your browser using DataLab