# NOT RUN {
tkn <- get_access_token(client_id, client_secret)
t <- topics_related(texts = c("ms word", "access", "dexterity"),
socs = "41-3041.00",
token = tkn)
# }
Run the code above in your browser using DataLab