genes_to_check = c("PTPRC","EPCAM", 'MME',"CD3G","CD3E", "CD68", "CD79A") capup <- function(a) { paste0(substr(a,1,1),tolower(substr(a,2,nchar(a)))) } sapply(genes_to_check,capup)
PTPRC EPCAM MME CD3G CD3E CD68 CD79A
"PTPRC" "EPCAM" "MME" "CD3G" "CD3E" "CD68" "CD79A"