| library(RKorAPClient) |
| library(knitr) |
| new("KorAPConnection", verbose = TRUE) %>% |
| collocationAnalysis( |
| "focus(in [tt/p=NN] {[tt/l=setzen]})", |
| leftContextSize = 1, |
| rightContextSize = 0, |
| exactFrequencies = FALSE, |
| searchHitsSampleLimit = 1000, |
| topCollocatesLimit = 20 |
| ) %>% |
| mutate(LVC = sprintf("[in %s setzen](%s)", collocate, webUIRequestUrl)) %>% |
| select(LVC, logDice, pmi, ll) %>% |
| head(10) %>% |
| kable(format="pipe", digits=2) %>% |
| cat(file="/tmp/in_setzen.md", sep="\n") |
| |
| #rmarkdown::render("/tmp/in_setzen.md") |
| #browseURL("/tmp/in_setzen.html") |
| |