R/2SingleCellExperiment_INPUT.R

In 13308204545/Chord: Chord

#' translate seurat obj to SCE
#'
#' simulation training set is generated from quality singlet data after filter any doublets detected by any method
#'
#' @param seu the seurat object
creatSCE<-function(seu){
  require(SingleCellExperiment)
  #load(wd)
  # input matrix
  counts_data <- as.matrix(seu@assays$RNA@counts)
  col<-seu@meta.data
  sce <- SingleCellExperiment(assays = list(counts = counts_data),colData = col)
  return(sce)
}