R/Nameperson.R

Defines functions Nameperson

Nameperson<-function(x){
	splitword<-unlist(strsplit(x,""))
	return(paste0(toupper(splitword[1]),paste0(splitword[-1],collapse="")))
}
mcl868/bossgene documentation built on March 29, 2020, 3:33 p.m.