| Marc Kupietz | dbd431a | 2021-08-29 12:17:45 +0200 | [diff] [blame^] | 1 | library(RKorAPClient) |
| 2 | library(knitr) |
| 3 | new("KorAPConnection", verbose = TRUE) %>% |
| 4 | collocationAnalysis( |
| 5 | "focus(in [tt/p=NN] {[tt/l=setzen]})", |
| 6 | leftContextSize = 1, |
| 7 | rightContextSize = 0, |
| 8 | exactFrequencies = FALSE, |
| 9 | searchHitsSampleLimit = 1000, |
| 10 | topCollocatesLimit = 20 |
| 11 | ) %>% |
| 12 | mutate(LVC = sprintf("[in %s setzen](%s)", collocate, webUIRequestUrl)) %>% |
| 13 | select(LVC, logDice, pmi, ll) %>% |
| 14 | head(10) %>% |
| 15 | kable(format="pipe", digits=2) %>% |
| 16 | cat(file="/tmp/in_setzen.md", sep="\n") |
| 17 | |
| 18 | #rmarkdown::render("/tmp/in_setzen.md") |
| 19 | #browseURL("/tmp/in_setzen.html") |
| 20 | |