Find synonyms using a word2vec model.
h2o.findSynonyms(word2vec, word, count = 20)if (FALSE) { # \dontrun{
library(h2o)
h2o.init()
job_titles <- h2o.importFile(
"https://s3.amazonaws.com/h2o-public-test-data/smalldata/craigslistJobTitles.csv",
col.names = c("category", "jobtitle"), col.types = c("String", "String"), header = TRUE
)
words <- h2o.tokenize(job_titles, " ")
vec <- h2o.word2vec(training_frame = words)
h2o.findSynonyms(vec, "teacher", count = 20)
} # }