## Not run:
# articles <- fromJSON("Test/PCD_articles.json")
# keywords <- c("effectiveness", "treatment outcome", "comorbidity", "risk factor", "incidence")
# k_names <- c("EFF", "TREATOUT", "COMORB", "RISK", "INCID")
# kat <- keyword_assoc_table(corpus = articles, keyword_list = keywords, keyword_names = k_names, where = in_mesh_abstract_p)
# ## End(Not run)
Run the code above in your browser using DataLab