pbmc <- RunAPOTC(
seurat_obj = get(data("combined_pbmc")),
reduction_base = "umap",
clonecall = "strict",
run_id = "run1",
verbose = FALSE
)
containsApotcRun(pbmc, "run1")
#> [1] TRUE
containsApotcRun(pbmc, "run2")
#> [1] FALSE
Run the code above in your browser using DataLab