I want to create a loop that applies the following function to every row of a column content, and then generates a new column words:
library(jiebaR) qseg <