# Only run example code if Seurat and CAMML packages are available
if (requireNamespace("Seurat", quietly=TRUE) &
requireNamespace("SeuratObject", quietly=TRUE) &
requireNamespace("CAMML", quietly=TRUE)) {
# See vignettes for more examples
seurat <- CAMML(seurat=SeuratObject::pbmc_small,
gene.set.df=data.frame(cbind(ensembl.id = c("ENSG00000172005",
"ENSG00000173114","ENSG00000139187"),
cell.type = c("T cell","T cell","T cell"))))
GetCAMMLLabels(seurat, labels = "top1")
}
Run the code above in your browser using DataLab