# NOT RUN {
year <- c(1990:2018)
# }
# NOT RUN {
alternatives <- c("macht []{0,3} Sinn", "ergibt []{0,3} Sinn")
# }
# NOT RUN {
new("KorAPConnection", verbose = TRUE) %>%
frequencyQuery(query = alternatives,
vc = paste("textType = /Zeit.*/ & pubDate in", year),
as.alternatives = TRUE) %>%
hc_freq_by_year_ci(as.alternatives = TRUE)
# }
# NOT RUN {
kco <- new("KorAPConnection", verbose = TRUE)
expand_grid(
condition = c("textDomain = /Wirtschaft.*/", "textDomain != /Wirtschaft.*/"),
year = (2005:2011)
) %>%
cbind(frequencyQuery(
kco,
"[tt/l=Heuschrecke]",
paste0(.$condition, " & pubDate in ", .$year)
)) %>%
hc_freq_by_year_ci()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab