Гиперонимы Wordnet в R

Question

У меня есть эта функция для извлечения WordNe t Hyernyms в R.

# Hypernym
if(initDict("C:/Program Files (x86)/WordNet/2.1/dict")) {
  filter <- getTermFilter("ExactMatchFilter", "cow", TRUE)
  terms <- getIndexTerms("NOUN", 5, filter)
  synsets <- getSynsets(terms[[1]])
  related <- getRelatedSynsets(synsets[[1]], "@")
  sapply(related, getWord)
}

Но я хочу, чтобы он работал с целым столбцом слов, а не с одним словом за раз ("корова").