if (FALSE) {
new("KorAPConnection", verbose = TRUE) %>%
collocationScoreQuery("Grund", "triftiger")
}
if (FALSE) {
new("KorAPConnection", verbose = TRUE) %>%
collocationScoreQuery("Grund", c("guter", "triftiger"),
scoreFunctions = list(localMI = function(O1, O2, O, N, E, window_size) { O * log2(O/E) }) )
}
if (FALSE) {
library(highcharter)
library(tidyr)
new("KorAPConnection", verbose = TRUE) %>%
collocationScoreQuery("Team", "agil", vc = paste("pubDate in", c(2014:2018)),
lemmatizeNodeQuery = TRUE, lemmatizeCollocateQuery = TRUE) %>%
pivot_longer(14:last_col(), names_to = "measure", values_to = "score") %>%
hchart(type="spline", hcaes(label, score, group=measure)) %>%
hc_add_onclick_korap_search()
}
Run the code above in your browser using DataLab