diff --git a/tutorial_page.Rmd b/tutorial_page.Rmd
index bc87976a4de985cdb21f81ab9353b571a3600901..2bab713579b8a5654363e44b8b5526dfab39a1c1 100644
--- a/tutorial_page.Rmd
+++ b/tutorial_page.Rmd
@@ -7,6 +7,7 @@ runtime: shiny_prerendered
 ```{r setup, include=FALSE}
 library(learnr)
 library(readxl)
+options(scipen = 10)
 knitr::opts_chunk$set(echo = FALSE)
 gameData <- read_excel("bgg_dataset.xlsx")
 ```
diff --git a/tutorial_page.html b/tutorial_page.html
index 87dabfdd2aea6834650ed69f8b51607eb64da92b..a78635563a04281045c62a17da22461e31f806c0 100644
--- a/tutorial_page.html
+++ b/tutorial_page.html
@@ -422,6 +422,7 @@ beweisen oder widerlegen.<br />
 <script type="application/shiny-prerendered" data-context="server-start">
 library(learnr)
 library(readxl)
+options(scipen = 10)
 knitr::opts_chunk$set(echo = FALSE)
 gameData <- read_excel("bgg_dataset.xlsx")
 </script>
@@ -456,20 +457,20 @@ output$`tutorial-exercise-print-limit-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "print-limit", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "knitr::opts_chunk$set(echo = FALSE)", "gameData <- read_excel(\"bgg_dataset.xlsx\")"
-), chunk_opts = list(label = "setup", include = FALSE)), setup = NULL, 
-    chunks = list(list(label = "print-limit", code = "mtcars", 
-        opts = list(label = "\"print-limit\"", exercise = "TRUE", 
-            exercise.eval = "TRUE"), engine = "r")), code_check = NULL, 
-    error_check = NULL, check = NULL, solution = NULL, tests = NULL, 
-    options = list(eval = TRUE, echo = TRUE, results = "markup", 
-        tidy = FALSE, tidy.opts = NULL, collapse = FALSE, prompt = FALSE, 
-        comment = NA, highlight = FALSE, size = "normalsize", 
-        background = "#F7F7F7", strip.white = TRUE, cache = 0, 
-        cache.path = "tutorial_page_cache/html/", cache.vars = NULL, 
-        cache.lazy = TRUE, dependson = NULL, autodep = FALSE, 
-        cache.rebuild = FALSE, fig.keep = "high", fig.show = "asis", 
-        fig.align = "default", fig.path = "tutorial_page_files/figure-html/", 
+"library(readxl)", "options(scipen = 10)", "knitr::opts_chunk$set(echo = FALSE)", 
+"gameData <- read_excel(\"bgg_dataset.xlsx\")"), chunk_opts = list(
+    label = "setup", include = FALSE)), setup = NULL, chunks = list(
+    list(label = "print-limit", code = "mtcars", opts = list(
+        label = "\"print-limit\"", exercise = "TRUE", exercise.eval = "TRUE"), 
+        engine = "r")), code_check = NULL, error_check = NULL, 
+    check = NULL, solution = NULL, tests = NULL, options = list(
+        eval = TRUE, echo = TRUE, results = "markup", tidy = FALSE, 
+        tidy.opts = NULL, collapse = FALSE, prompt = FALSE, comment = NA, 
+        highlight = FALSE, size = "normalsize", background = "#F7F7F7", 
+        strip.white = TRUE, cache = 0, cache.path = "tutorial_page_cache/html/", 
+        cache.vars = NULL, cache.lazy = TRUE, dependson = NULL, 
+        autodep = FALSE, cache.rebuild = FALSE, fig.keep = "high", 
+        fig.show = "asis", fig.align = "default", fig.path = "tutorial_page_files/figure-html/", 
         dev = "png", dev.args = NULL, dpi = 192, fig.ext = "png", 
         fig.width = 6.5, fig.height = 4, fig.env = "figure", 
         fig.cap = NULL, fig.scap = NULL, fig.lp = "fig:", fig.subcap = NULL, 
@@ -488,16 +489,16 @@ learnr:::store_exercise_cache(structure(list(label = "print-limit", global_setup
  
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "quiz-1", question = structure("Which package contains functions for installing other R packages?", html = TRUE, class = c("html", 
-"character")), answers = list(structure(list(id = "lnr_ans_db5db9", 
+"character")), answers = list(structure(list(id = "lnr_ans_823798e", 
     option = "base", value = "base", label = structure("base", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_796a120", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_a784467", 
     option = "tools", value = "tools", label = structure("tools", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_bd5df56", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_8e50773", 
     option = "utils", value = "utils", label = structure("utils", html = TRUE, class = c("html", 
     "character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_39326aa", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_6ef3904", 
     option = "codetools", value = "codetools", label = structure("codetools", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
 "tutorial_quiz_answer"))), button_labels = list(submit = structure("<span data-i18n=\"button.questionsubmit\">Submit Answer<\u002fspan>", html = TRUE, class = c("html", 
@@ -507,7 +508,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
 "character")), incorrect = structure("Incorrect", html = TRUE, class = c("html", 
 "character")), message = NULL, post_message = NULL), ids = list(
     answer = "quiz-1-answer", question = "quiz-1"), loading = NULL, 
-    random_answer_order = FALSE, allow_retry = FALSE, seed = 201882550.905991, 
+    random_answer_order = FALSE, allow_retry = FALSE, seed = 766688790.142983, 
     options = list()), class = c("learnr_radio", "tutorial_question"
 )), session = session)
 </script>
@@ -515,16 +516,16 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::question_prerendered_chunk(structure(list(type = "learnr_checkbox", label = "quiz-2", question = structure("Which of the R packages listed below are used to create plots?", html = TRUE, class = c("html", 
-"character")), answers = list(structure(list(id = "lnr_ans_c7b3454", 
+"character")), answers = list(structure(list(id = "lnr_ans_e29c3e9", 
     option = "lattice", value = "lattice", label = structure("lattice", html = TRUE, class = c("html", 
     "character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_a7d8d5e", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_70c66b4", 
     option = "tools", value = "tools", label = structure("tools", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_e41518a", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_e6d2172", 
     option = "stats", value = "stats", label = structure("stats", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_b174161", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_36c2ae3", 
     option = "grid", value = "grid", label = structure("grid", html = TRUE, class = c("html", 
     "character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
 "tutorial_quiz_answer"))), button_labels = list(submit = structure("<span data-i18n=\"button.questionsubmit\">Submit Answer<\u002fspan>", html = TRUE, class = c("html", 
@@ -534,7 +535,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_checkbox", lab
 "character")), incorrect = structure("Incorrect", html = TRUE, class = c("html", 
 "character")), message = NULL, post_message = NULL), ids = list(
     answer = "quiz-2-answer", question = "quiz-2"), loading = NULL, 
-    random_answer_order = FALSE, allow_retry = FALSE, seed = 1725704579.69641, 
+    random_answer_order = FALSE, allow_retry = FALSE, seed = 1940077134.09658, 
     options = list()), class = c("learnr_checkbox", "tutorial_question"
 )), session = session)
 </script>
@@ -549,12 +550,13 @@ output$`tutorial-exercise-mean-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "mean", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "knitr::opts_chunk$set(echo = FALSE)", "gameData <- read_excel(\"bgg_dataset.xlsx\")"
-), chunk_opts = list(label = "setup", include = FALSE)), setup = NULL, 
-    chunks = list(list(label = "mean", code = "\n\n", opts = list(
-        label = "\"mean\"", exercise = "TRUE"), engine = "r")), 
-    code_check = NULL, error_check = NULL, check = NULL, solution = NULL, 
-    tests = NULL, options = list(eval = FALSE, echo = TRUE, results = "markup", 
+"library(readxl)", "options(scipen = 10)", "knitr::opts_chunk$set(echo = FALSE)", 
+"gameData <- read_excel(\"bgg_dataset.xlsx\")"), chunk_opts = list(
+    label = "setup", include = FALSE)), setup = NULL, chunks = list(
+    list(label = "mean", code = "\n\n", opts = list(label = "\"mean\"", 
+        exercise = "TRUE"), engine = "r")), code_check = NULL, 
+    error_check = NULL, check = NULL, solution = NULL, tests = NULL, 
+    options = list(eval = FALSE, echo = TRUE, results = "markup", 
         tidy = FALSE, tidy.opts = NULL, collapse = FALSE, prompt = FALSE, 
         comment = NA, highlight = FALSE, size = "normalsize", 
         background = "#F7F7F7", strip.white = TRUE, cache = 0, 
@@ -587,9 +589,10 @@ output$`tutorial-exercise-median-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "median", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "knitr::opts_chunk$set(echo = FALSE)", "gameData <- read_excel(\"bgg_dataset.xlsx\")"
-), chunk_opts = list(label = "setup", include = FALSE)), setup = NULL, 
-    chunks = list(list(label = "median", code = "ptime <- gameData[[\"Play Time\"]]", 
+"library(readxl)", "options(scipen = 10)", "knitr::opts_chunk$set(echo = FALSE)", 
+"gameData <- read_excel(\"bgg_dataset.xlsx\")"), chunk_opts = list(
+    label = "setup", include = FALSE)), setup = NULL, chunks = list(
+    list(label = "median", code = "ptime <- gameData[[\"Play Time\"]]", 
         opts = list(label = "\"median\"", exercise = "TRUE"), 
         engine = "r")), code_check = NULL, error_check = NULL, 
     check = NULL, solution = NULL, tests = NULL, options = list(
@@ -626,9 +629,10 @@ output$`tutorial-exercise-variance-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "variance", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "knitr::opts_chunk$set(echo = FALSE)", "gameData <- read_excel(\"bgg_dataset.xlsx\")"
-), chunk_opts = list(label = "setup", include = FALSE)), setup = NULL, 
-    chunks = list(list(label = "variance", code = "ptime <- gameData$\"Play Time\"", 
+"library(readxl)", "options(scipen = 10)", "knitr::opts_chunk$set(echo = FALSE)", 
+"gameData <- read_excel(\"bgg_dataset.xlsx\")"), chunk_opts = list(
+    label = "setup", include = FALSE)), setup = NULL, chunks = list(
+    list(label = "variance", code = "ptime <- gameData$\"Play Time\"", 
         opts = list(label = "\"variance\"", exercise = "TRUE"), 
         engine = "r")), code_check = NULL, error_check = NULL, 
     check = NULL, solution = NULL, tests = NULL, options = list(
@@ -665,9 +669,10 @@ output$`tutorial-exercise-standard-deviation-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "standard-deviation", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "knitr::opts_chunk$set(echo = FALSE)", "gameData <- read_excel(\"bgg_dataset.xlsx\")"
-), chunk_opts = list(label = "setup", include = FALSE)), setup = NULL, 
-    chunks = list(list(label = "standard-deviation", code = "ptime <- gameData$\"Play Time\"", 
+"library(readxl)", "options(scipen = 10)", "knitr::opts_chunk$set(echo = FALSE)", 
+"gameData <- read_excel(\"bgg_dataset.xlsx\")"), chunk_opts = list(
+    label = "setup", include = FALSE)), setup = NULL, chunks = list(
+    list(label = "standard-deviation", code = "ptime <- gameData$\"Play Time\"", 
         opts = list(label = "\"standard-deviation\"", exercise = "TRUE"), 
         engine = "r")), code_check = NULL, error_check = NULL, 
     check = NULL, solution = NULL, tests = NULL, options = list(
@@ -704,9 +709,10 @@ output$`tutorial-exercise-linear-regression-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "linear-regression", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "knitr::opts_chunk$set(echo = FALSE)", "gameData <- read_excel(\"bgg_dataset.xlsx\")"
-), chunk_opts = list(label = "setup", include = FALSE)), setup = NULL, 
-    chunks = list(list(label = "linear-regression", code = "raters <- gameData$\"Users Rated\"\nowned <- gameData$\"Owned Users\"", 
+"library(readxl)", "options(scipen = 10)", "knitr::opts_chunk$set(echo = FALSE)", 
+"gameData <- read_excel(\"bgg_dataset.xlsx\")"), chunk_opts = list(
+    label = "setup", include = FALSE)), setup = NULL, chunks = list(
+    list(label = "linear-regression", code = "raters <- gameData$\"Users Rated\"\nowned <- gameData$\"Owned Users\"", 
         opts = list(label = "\"linear-regression\"", exercise = "TRUE"), 
         engine = "r")), code_check = NULL, error_check = NULL, 
     check = NULL, solution = NULL, tests = NULL, options = list(
@@ -743,9 +749,10 @@ output$`tutorial-exercise-lm-plot-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "lm-plot", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "knitr::opts_chunk$set(echo = FALSE)", "gameData <- read_excel(\"bgg_dataset.xlsx\")"
-), chunk_opts = list(label = "setup", include = FALSE)), setup = NULL, 
-    chunks = list(list(label = "lm-plot", code = "raters <- gameData$\"Users Rated\"\nowned <- gameData$\"Owned Users\"\nx = lm()\nplot(, , pch = 16, col = \"blue\")\n", 
+"library(readxl)", "options(scipen = 10)", "knitr::opts_chunk$set(echo = FALSE)", 
+"gameData <- read_excel(\"bgg_dataset.xlsx\")"), chunk_opts = list(
+    label = "setup", include = FALSE)), setup = NULL, chunks = list(
+    list(label = "lm-plot", code = "raters <- gameData$\"Users Rated\"\nowned <- gameData$\"Owned Users\"\nx = lm()\nplot(, , pch = 16, col = \"blue\")\n", 
         opts = list(label = "\"lm-plot\"", exercise = "TRUE", 
             exercise.lines = "5"), engine = "r")), code_check = NULL, 
     error_check = NULL, check = NULL, solution = NULL, tests = NULL, 
@@ -777,10 +784,10 @@ learnr:::store_exercise_cache(structure(list(label = "lm-plot", global_setup = s
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "hypothesis-quiz-1", 
     question = structure("Spiele mit hoeherem Complexity Score haben eine niedrigere Anzahl von Owned Users.", html = TRUE, class = c("html", 
-    "character")), answers = list(structure(list(id = "lnr_ans_bd51ec3", 
+    "character")), answers = list(structure(list(id = "lnr_ans_3846724", 
         option = "Wahr", value = "Wahr", label = structure("Wahr", html = TRUE, class = c("html", 
         "character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
-    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_a62dae2", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_d52a87", 
         option = "Falsch", value = "Falsch", label = structure("Falsch", html = TRUE, class = c("html", 
         "character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
     "tutorial_quiz_answer"))), button_labels = list(submit = structure("<span data-i18n=\"button.questionsubmit\">Submit Answer<\u002fspan>", html = TRUE, class = c("html", 
@@ -791,7 +798,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
     "character")), message = NULL, post_message = NULL), ids = list(
         answer = "hypothesis-quiz-1-answer", question = "hypothesis-quiz-1"), 
     loading = NULL, random_answer_order = FALSE, allow_retry = FALSE, 
-    seed = 1387121838.85407, options = list()), class = c("learnr_radio", 
+    seed = 865583634.596931, options = list()), class = c("learnr_radio", 
 "tutorial_question")), session = session)
 </script>
 
@@ -799,10 +806,10 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "hypothesis-quiz-2", 
     question = structure("Spiele mit hoeherem Complexity Score haben hoehere Play Time.", html = TRUE, class = c("html", 
-    "character")), answers = list(structure(list(id = "lnr_ans_4797f62", 
+    "character")), answers = list(structure(list(id = "lnr_ans_ce31cd9", 
         option = "Wahr", value = "Wahr", label = structure("Wahr", html = TRUE, class = c("html", 
         "character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
-    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_a724528", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_78f0860", 
         option = "Falsch", value = "Falsch", label = structure("Falsch", html = TRUE, class = c("html", 
         "character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
     "tutorial_quiz_answer"))), button_labels = list(submit = structure("<span data-i18n=\"button.questionsubmit\">Submit Answer<\u002fspan>", html = TRUE, class = c("html", 
@@ -813,7 +820,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
     "character")), message = NULL, post_message = NULL), ids = list(
         answer = "hypothesis-quiz-2-answer", question = "hypothesis-quiz-2"), 
     loading = NULL, random_answer_order = FALSE, allow_retry = FALSE, 
-    seed = 745835540.152693, options = list()), class = c("learnr_radio", 
+    seed = 944802786.060042, options = list()), class = c("learnr_radio", 
 "tutorial_question")), session = session)
 </script>
 </p>