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