reverseWords <- function(words) { return( paste( rev( unlist( strsplit( words, split=" "))), sep=" ", collapse=" ")) }