| Marc Kupietz | 381cb98 | 2023-05-13 15:06:32 +0200 | [diff] [blame] | 1 | library(RKorAPClient) |
| Marc Kupietz | 381cb98 | 2023-05-13 15:06:32 +0200 | [diff] [blame] | 2 | library(kableExtra) |
| 3 | |
| Marc Kupietz | 381cb98 | 2023-05-13 15:06:32 +0200 | [diff] [blame] | 4 | |
| 5 | new("KorAPConnection", verbose = TRUE) %>% |
| Marc Kupietz | a3d9a32 | 2025-02-04 12:31:05 +0100 | [diff] [blame] | 6 | auth() %>% |
| Marc Kupietz | 381cb98 | 2023-05-13 15:06:32 +0200 | [diff] [blame] | 7 | collocationAnalysis("focus([marmot/p=ADJA] {Gendern})", leftContextSize=1, rightContextSize=0) %>% |
| 8 | mutate(collocate = paste0('<a href="', webUIRequestUrl, '">', collocate, '</a>')) %>% |
| 9 | select(collocate, O, pmi, mi2, mi3, logDice, ll) %>% |
| Marc Kupietz | a3d9a32 | 2025-02-04 12:31:05 +0100 | [diff] [blame] | 10 | kable(format = "html", escape = FALSE, caption = "Adjective collocates of 'Gendern'") %>% |
| Marc Kupietz | 381cb98 | 2023-05-13 15:06:32 +0200 | [diff] [blame] | 11 | kable_styling() %>% |
| 12 | print() |
| 13 | |