CreateDimReducObject: Create a DimReduc object
In atakanekiz/Seurat3.0: Tools for Single Cell Genomics

Create a DimReduc object

CreateDimReducObject(embeddings = new(Class = "matrix"),
  loadings = new(Class = "matrix"), projected = new(Class = "matrix"),
  assay = NULL, stdev = numeric(), key = NULL, jackstraw = NULL,
  misc = list())

`embeddings`	A matrix with the cell embeddings
`loadings`	A matrix with the feature loadings
`projected`	A matrix with the projected feature loadings
`assay`	Assay used to calculate this dimensional reduction
`stdev`	Standard deviation (if applicable) for the dimensional reduction
`key`	A character string to facilitate looking up features from a specific DimReduc
`jackstraw`	Results from the JackStraw function
`misc`	list for the user to store any additional information associated with the dimensional reduction

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")