R/runUncorrected.R

In erikjskie/ensemblemerge: Integrates existing sc-RNAseq integration methods into a single package

#' Run uncorrected merging
#'
#' @param params a UncorrectedMerge object
#' @param data a data object
#' @importFrom Seurat RunPCA
#'
#' @return returns a Seurat object of the integrated data
#'
run_Uncorrected <- function(params, data){

  data <- RunPCA(data, npcs = params@npcs, reduction.name = params@name, verbose = FALSE)
	data
}