pbmc <- RunAPOTC(
seurat_obj = get(data("combined_pbmc")),
reduction_base = "umap",
clonecall = "strict",
verbose = FALSE
)
getApotcDataIds(pbmc)
#> [1] "umap;CTstrict;_;_"
pbmc <- RunAPOTC(
seurat_obj = pbmc,
reduction_base = "umap",
clonecall = "gene",
verbose = FALSE
)
getApotcDataIds(pbmc)
#> [1] "umap;CTstrict;_;_" "umap;CTgene;_;_"
Run the code above in your browser using DataLab