diff --git a/R/highcharter-helper.R b/R/highcharter-helper.R
index cff6093..b33689a 100644
--- a/R/highcharter-helper.R
+++ b/R/highcharter-helper.R
@@ -17,6 +17,18 @@
 #'                  as.alternatives = TRUE) %>%
 #'   hc_freq_by_year_ci(as.alternatives = TRUE)
 #'
+#' 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()
+#'
 hc_freq_by_year_ci <- function(df, as.alternatives = F, ylabel = if(as.alternatives) "%" else "ipm") {
   title <- ""
   df <- df %>%