# Only run example code if Seurat package is available
if (requireNamespace("Seurat", quietly=TRUE) & requireNamespace("SeuratObject", quietly=TRUE)) {
# Define a collection with three gene sets
collection=list(set1=1:10, set2=11:20, set3=21:30)
# Execute on the pbmc_small scRNA-seq data set included with SeuratObject
# See vignettes for more detailed Seurat examples
reset.out = resetForSeurat(seurat.data=SeuratObject::pbmc_small,
num.pcs=5,
gene.set.collection=collection)
# Retrieve the scores for the first 10 cells
reset.out@assays$RESET[,1:10]
# Retrieve the overall scores
reset.out@assays$RESET@meta.features
}
Run the code above in your browser using DataLab