>>>>> "Spencer" == Spencer Graves <[EMAIL PROTECTED]>
>>>>> on Sun, 05 Dec 2004 13:48:07 -0800 writes:
Spencer> That's great, Peter.
Spencer> For pedestrians like me who are not quite as facile with regular
Spencer> expressions, the following seems slightly more readable:
Spencer> s <- "the quick red fox jumps over the lazy brown dog"
Spencer> ss <- strsplit(s, " ")[[1]]
Spencer> ss1 <- substring(ss, 1,1)
Spencer> ss2 <- substring(ss, 2)
Spencer> paste(toupper(ss1), ss2, sep="", collapse=" ")
Spencer> [1] "The Quick Red Fox Jumps Over The Lazy Brown Dog"
Nice. Since this has been asked before,
and it is something common enoguh that Emacs even has this on a
key (M-c), I think it's worth making a small example on the help
page for toupper/tolower:
## "Mixed Case" Capitalizing Function :
capitalize <- function(x) {
## toupper( every first letter of a word ) :
s <- strsplit(x, " ")[[1]]
paste(toupper(substring(s, 1,1)), substring(s, 2), sep="", collapse=" ")
}
capitalize("the quick red fox jumps over the lazy brown dog")
## -> [1] "The Quick Red Fox Jumps Over The Lazy Brown Dog"
______________________________________________
[EMAIL PROTECTED] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
