d = as_embed(demodata, normalize=TRUE)
dict = dict_expand(d, "king")
dict_reliability(d, dict)
dict.cn = dict_expand(d, "China", threshold=0.65)
dict_reliability(d, dict.cn)
dict_reliability(d, c(dict, dict.cn))
# low-loading items should be removed
Run the code above in your browser using DataLab