diff --git a/tests/testthat/test-demos.R b/tests/testthat/test-demos.R
index 1269760..bfc8f2e 100644
--- a/tests/testthat/test-demos.R
+++ b/tests/testthat/test-demos.R
@@ -1,7 +1,6 @@
 test_that("Alternatives over time highcharter example works", {
-  year <- c(1990:2018)
+  year <- c(2013:2018)
   alternatives <- c("macht []{0,3} Sinn", "ergibt []{0,3} Sinn")
-
   hc <- new("KorAPConnection", verbose = TRUE) %>%
     frequencyQuery(
       query = alternatives,
@@ -59,7 +58,7 @@
   hc <- expand_grid(
     myconditions = c("textDomain = /Wirtschaft.*/",
                   "textDomain != /Wirtschaft.*/"),
-    year = (2009:2013)
+    year = (2011:2013)
   ) %>%
     cbind(frequencyQuery(
       kco,
@@ -74,7 +73,7 @@
   kco <- new("KorAPConnection", verbose=TRUE)
   hc <- expand_grid(
     condition = c("textDomain = /Wirtschaft.*/"),
-    year = (2009:2013)
+    year = (2011:2013)
   ) %>%
     cbind(frequencyQuery(
       kco,
@@ -90,7 +89,7 @@
   hc <- expand_grid(
     condition = c("textDomain = /Wirtschaft.*/",
                   "textDomain != /Wirtschaft.*/"),
-    year = (2009:2013)
+    year = (2011:2013)
   ) %>%
     cbind(frequencyQuery(
       kco,
@@ -107,7 +106,7 @@
     qx = c("[tt/l=Heuschrecke]", "Ameise"),
     condition = c("textDomain = /Wirtschaft.*/",
                   "textDomain != /Wirtschaft.*/"),
-    year = (2009:2013)
+    year = (2011:2013)
   ) %>%
     cbind(frequencyQuery(
       kco,
@@ -123,7 +122,7 @@
   p <- expand_grid(
     condition = c("textDomain = /Wirtschaft.*/",
                   "textDomain != /Wirtschaft.*/"),
-    year = (2009:2013)
+    year = (2010:2013)
   ) %>%
     cbind(frequencyQuery(
       kco,