R/capstring.R

"capstring" <-
function (names) 
{
paste(toupper(substring(names, first=1, last=1)),substring(names, first=2), sep="")
}
jhmaindonald/DAAG documentation built on May 3, 2019, 3:13 p.m.