data <- GetAssayData(pbmc_small[["RNA"]], slot = "scale.data")
pcs <- prcomp(x = data)
pca.dr <- CreateDimReducObject(
embeddings = pcs$rotation,
loadings = pcs$x,
stdev = pcs$sdev,
key = "PC",
assay = "RNA"
)
Run the code above in your browser using DataLab