# Only run example code if Seurat package is available
if (requireNamespace("Seurat", quietly=TRUE) & requireNamespace("SeuratObject", quietly=TRUE)) {
# Define a collection with three overlapping gene sets of different sizes
collection=list(set1=1:10, set2=1:20, set3=6:10)
# 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=2, k=2,
gene.set.collection=collection)
# Retrieve the overall scores
reset.out@assays$RESET@meta.features
# Convert the scores to a per-variable format
reset.out.2 = convertToPerVarScoresForSeurat(seurat.data=reset.out,
gene.set.collection=collection)
# Retrieve the overall scores
reset.out.2@assays$RESET@meta.features
}
Run the code above in your browser using DataLab