tst=c("This is a test text",
"This is a test text 2",
"This is another test text",
"This is another test text 2",
"This girl will test text that man",
"This boy will test text that man")
(pd=phraseDoc(tst))
Run the code above in your browser using DataLab