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

Question

У меня есть эта функция для извлечения гиернетов Wordnet в 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)
}

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