# NOT RUN {
tkn <- get_access_token(client_id, client_secret)
txts <- c("Weld things together", "Use an acetylene torch", "Hammer nails into wood")
s <- skills_multi_match(sentences = txts,
depth = 20,
cutoff = 5,
token = tkn,
socs = c("17-2141.00",
"49-9041.00",
"49-1011.00",
"49-9071.00"))
# }
Run the code above in your browser using DataLab