texts <- c("this is science",
"science is #fascinatingthing",
"this is a scientific approach",
"science is everywhere",
"the beauty of science")
nuss(c("thisisscience", "scienceisscience"), texts)
Run the code above in your browser using DataLab