bag.o.words("I'm going home!")
bag.o.words("I'm going home!", apostrophe.remove = TRUE)
bag.o.words(DATA$state)
by(DATA$state, DATA$person, bag.o.words)
lapply(DATA$state, bag.o.words)
breaker(DATA$state)
by(DATA$state, DATA$person, breaker)
lapply(DATA$state, breaker)
word.split(c(NA, DATA$state))
Run the code above in your browser using DataLab