Add deconvolution results from an SpaCET object to an Seurat object as a new assay.
Examples
visiumPath <- file.path(system.file(package = "SpaCET"), "extdata/Visium_BC")
Seurat_obj <- Seurat::Load10X_Spatial(data.dir = visiumPath)
SpaCET_obj <- convert.Seurat(Seurat_obj)
SpaCET_obj <- SpaCET.quality.control(SpaCET_obj)
SpaCET_obj <- SpaCET.deconvolution(SpaCET_obj, cancerType="BRCA", coreNo=8)
Seurat_obj <- addTo.Seurat(SpaCET_obj, Seurat_obj)
Seurat::DefaultAssay(Seurat_obj) <- "propMatFromSpaCET"
Seurat::SpatialFeaturePlot(Seurat_obj, features = c("CAF", "Macrophage"))