## directly use `embed[i, j]` (3x faster than `wordvec`):
d = as_embed(demodata)
d[1:5]
d["people"]
d[c("China", "Japan", "Korea")]
## specify `x` as a `wordvec` or `embed` object:
subset(demodata, c("China", "Japan", "Korea"))
subset(d, pattern="^Chi")
## specify `x` and `pattern`, and save with `file.save`:
subset(demodata, pattern="Chin[ae]|Japan|Korea",
file.save="subset.RData")
## load the subset:
d.subset = load_wordvec("subset.RData")
d.subset
## specify `x` as an .RData file and save with `file.save`:
data_wordvec_subset("subset.RData",
words=c("China", "Chinese"),
file.save="new.subset.RData")
d.new.subset = load_embed("new.subset.RData")
d.new.subset
unlink("subset.RData") # delete file for code check
unlink("new.subset.RData") # delete file for code check
Run the code above in your browser using DataLab