terms <- c("other", "about", "many", "into", "number", "people", "water",
"over", "only", "little", "very", "after", "sentence", "before",
"any", "follow", "also", "around", "another", "even", "because",
"different", "picture", "again", "away", "animal", "letter",
"mother", "answer", "study", "America")
stats::setNames(lookup_syllable_counts(terms), terms)
Run the code above in your browser using DataLab