library(scater)
## Create new SCE object from the seurat expression object
fData <- new("AnnotatedDataFrame", data = expression_seurat@meta.data)
seurat_scater_sce <- newSCESet(exprsData = as.matrix(expression_seurat@data), phenoData = fData,
                            lowerDetectionLimit=0.0,
                            logExprsOffset=1)
seurat_scater_sce <- calculateQCMetrics(seurat_scater_sce)