# NOT RUN {
pbmc_small
# Simulate adding a new dimensional reduction
new.cell.embeddings <- GetCellEmbeddings(object = pbmc_small, reduction.type = "pca")
new.gene.loadings <- GetGeneLoadings(object = pbmc_small, reduction.type = "pca")
SetDimReduction(
object = pbmc_small,
reduction.type = "new.pca",
slot = "cell.embeddings",
new.data = new.cell.embeddings
)
SetDimReduction(
object = pbmc_small,
reduction.type = "new.pca",
slot = "gene.loadings",
new.data = new.gene.loadings
)
# }
Run the code above in your browser using DataLab