diff --git a/R/ReturnCellTypes.R b/R/ReturnCellTypes.R
index 6f814f2..4d97e56 100644
--- a/R/ReturnCellTypes.R
+++ b/R/ReturnCellTypes.R
@@ -7,7 +7,7 @@
 #' @return unique cell types
 #' @export
 
-ReturnCelltypes <- function(seurat_object){
+ReturnCellTypes <- function(seurat_object){
   message('\n For sampling purposes, please make sure that the active Identity of the input seurat object corresponds to cell types')
   return(names(table(Seurat::Idents(seurat_object)))) # ms: other steps are depdent on the exact format of this output
 }
\ No newline at end of file