diff --git a/tutorial_page.Rmd b/tutorial_page.Rmd
index 93ea3b5da2c1b7e111b2b139fda29a0370080014..a8883f8baec45c2662ca56d078e9b8fa327486d0 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)
 gameData <- read_excel("bgg_dataset.xlsx", sheet = "Sheet")
 knitr::opts_chunk$set(echo = FALSE)
 ```
@@ -197,7 +198,6 @@ quiz(
 )
 ```
 
-
 ## Datenanalyse
 
 In diesem Teil wird beschrieben, wie man verschiedene Daten mit Funktionen ermitteln kann.\
@@ -308,7 +308,7 @@ quiz(
     answer("Wahr", correct = TRUE),
     answer("Falsch")
   ),
-  question("Spiele mit hoeherem Complexity haben hoehere Play Time.",
+  question("Spiele mit hoeherem Complexity Score haben hoehere Play Time.",
     answer("Wahr", correct = TRUE),
     answer("Falsch")
   )
@@ -316,7 +316,6 @@ quiz(
 ```
 
 
-
 ## Ergebnispräsentation
 
 ### Streudiagramm
diff --git a/tutorial_page.html b/tutorial_page.html
index 95c6ebcdd540d45779a8a06d363e7682a45c8e1a..0566a86d680d450b7410807e871c98b8b8a5569c 100644
--- a/tutorial_page.html
+++ b/tutorial_page.html
@@ -550,6 +550,7 @@ beweisen oder widerlegen.<br />
 <script type="application/shiny-prerendered" data-context="server-start">
 library(learnr)
 library(readxl)
+options(scipen = 10)
 gameData <- read_excel("bgg_dataset.xlsx", sheet = "Sheet")
 knitr::opts_chunk$set(echo = FALSE)
 </script>
@@ -584,7 +585,7 @@ output$`tutorial-exercise-install-readxl-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "install-readxl", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "install-readxl", 
     code = "install.packages(\"readxl\")\nlibrary (readxl)", 
@@ -624,7 +625,7 @@ output$`tutorial-exercise-read-data-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "read-data", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "read-data", 
     code = "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
@@ -664,7 +665,7 @@ output$`tutorial-exercise-show-data-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "show-data", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "show-data", 
     code = "gameData", opts = list(label = "\"show-data\"", exercise = "TRUE"), 
@@ -703,7 +704,7 @@ output$`tutorial-exercise-read-column-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "read-column", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "read-column", 
     code = "gameData$`Year Published`", opts = list(label = "\"read-column\"", 
@@ -743,7 +744,7 @@ output$`tutorial-exercise-remove-empties-column-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "remove-empties-column", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "remove-empties-column", 
     code = "gameData$`Year Published` <- trimws(gameData$`Year Published`)\ngameData$`Year Published`", 
@@ -784,7 +785,7 @@ output$`tutorial-exercise-remove-empties-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "remove-empties", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "remove-empties", 
     code = "gameData <- lapply(gameData, trimws)\ngameData", 
@@ -824,7 +825,7 @@ output$`tutorial-exercise-to-lowercase-column-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "to-lowercase-column", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "to-lowercase-column", 
     code = "gameData$`Mechanics` <- tolower(gameData$`Mechanics`)\ngameData$`Mechanics`", 
@@ -865,7 +866,7 @@ output$`tutorial-exercise-replace-variable-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "replace-variable", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "replace-variable", 
     code = "gameData$`Mechanics` <- gsub(\"Action\", \"ACTION\", gameData$`Mechanics`)\ngameData$`Mechanics`", 
@@ -906,7 +907,7 @@ output$`tutorial-exercise-replace-missing-variable-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "replace-missing-variable", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "replace-missing-variable", 
     code = "gameData$`Rating Average`[is.na(gameData$`Rating Average`)] <- mean(gameData$`Rating Average`, na.rm = TRUE)", 
@@ -946,7 +947,7 @@ output$`tutorial-exercise-remove-duplicates-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "remove-duplicates", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "remove-duplicates", 
     code = "gameData <- unique(gameData)", opts = list(label = "\"remove-duplicates\"", 
@@ -986,7 +987,7 @@ output$`tutorial-exercise-replace-special-chars-output` <- renderUI({
 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::store_exercise_cache(structure(list(label = "replace-special-chars", global_setup = structure(c("library(learnr)", 
-"library(readxl)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "replace-special-chars", 
     code = "gameData$`Mechanics` <- gsub(\"[^a-zA-Z0-9 ]\", \"\", gameData$`Mechanics`)", 
@@ -1019,19 +1020,19 @@ learnr:::store_exercise_cache(structure(list(label = "replace-special-chars", gl
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "second-quiz-1", 
     question = structure("Mit welchem R-Befehl lassen sich Packages installieren?", html = TRUE, class = c("html", 
-    "character")), answers = list(structure(list(id = "lnr_ans_9152b4", 
+    "character")), answers = list(structure(list(id = "lnr_ans_ca20291", 
         option = "install.packages()", value = "install.packages()", 
         label = structure("install.packages()", 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_9fa1005", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_d955cae", 
         option = "add.packages()", value = "add.packages()", 
         label = structure("add.packages()", 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_ecf2af8", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_58176ef", 
         option = "install.library()", value = "install.library()", 
         label = structure("install.library()", 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_fb87b3f", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_21ea4fa", 
         option = "install()", value = "install()", label = structure("install()", 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", 
@@ -1042,7 +1043,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
     "character")), message = NULL, post_message = NULL), ids = list(
         answer = "second-quiz-1-answer", question = "second-quiz-1"), 
     loading = NULL, random_answer_order = FALSE, allow_retry = FALSE, 
-    seed = 1655717186.729, options = list()), class = c("learnr_radio", 
+    seed = 1369528815.86226, options = list()), class = c("learnr_radio", 
 "tutorial_question")), session = session)
 </script>
 
@@ -1050,16 +1051,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_radio", label = "second-quiz-2", 
     question = structure("Mit welchem R-Befehl lassen sich die installierten Packages initialisieren?", html = TRUE, class = c("html", 
-    "character")), answers = list(structure(list(id = "lnr_ans_243a3dc", 
+    "character")), answers = list(structure(list(id = "lnr_ans_39f493a", 
         option = "use()", value = "use()", label = structure("use()", 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_9505c08", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_e9e5f27", 
         option = "library()", value = "library()", label = structure("library()", 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_d4b9fe6", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_e304c90", 
         option = "init()", value = "init()", label = structure("init()", 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_7226ea2", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_b76a78f", 
         option = "install.packages()", value = "install.packages()", 
         label = structure("install.packages()", html = TRUE, class = c("html", 
         "character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
@@ -1071,23 +1072,23 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
     "character")), message = NULL, post_message = NULL), ids = list(
         answer = "second-quiz-2-answer", question = "second-quiz-2"), 
     loading = NULL, random_answer_order = FALSE, allow_retry = FALSE, 
-    seed = 688985354.679166, options = list()), class = c("learnr_radio", 
+    seed = 1855370276.13603, options = list()), class = c("learnr_radio", 
 "tutorial_question")), session = session)
 </script>
  
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "second-quiz-3", 
     question = structure("Welcher Packet benutzen wir, um XLSX-Dateien zu lesen?", html = TRUE, class = c("html", 
-    "character")), answers = list(structure(list(id = "lnr_ans_fd306fd", 
+    "character")), answers = list(structure(list(id = "lnr_ans_f44c779", 
         option = "readxl()", value = "readxl()", label = structure("readxl()", 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_a36632d", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_4f8f5e", 
         option = "readxls()", value = "readxls()", label = structure("readxls()", 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_db56eaa", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_c900e27", 
         option = "readexcel()", value = "readexcel()", label = structure("readexcel()", 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_6ef3f79", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_84c70ca", 
         option = "excelread()", value = "excelread()", label = structure("excelread()", 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", 
@@ -1098,7 +1099,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
     "character")), message = NULL, post_message = NULL), ids = list(
         answer = "second-quiz-3-answer", question = "second-quiz-3"), 
     loading = NULL, random_answer_order = FALSE, allow_retry = FALSE, 
-    seed = 660407116.692474, options = list()), class = c("learnr_radio", 
+    seed = 1633355848.23941, options = list()), class = c("learnr_radio", 
 "tutorial_question")), session = session)
 </script>
 
@@ -1106,19 +1107,19 @@ 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 = "second-quiz-4", 
     question = structure("Wie lassen sich einzelne Spalten aus dem Datensatz auslesen?", html = TRUE, class = c("html", 
-    "character")), answers = list(structure(list(id = "lnr_ans_e1aab94", 
+    "character")), answers = list(structure(list(id = "lnr_ans_90b8a0a", 
         option = "dataset&\\`column\\`", value = "dataset&\\`column\\`", 
         label = structure("dataset&amp;`column`", 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_983f5f0", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_d19421d", 
         option = "column$dataset", value = "column$dataset", 
         label = structure("column$dataset", 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_42d1b13", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_7ec7017", 
         option = "dataset%\\`column\\`", value = "dataset%\\`column\\`", 
         label = structure("dataset%`column`", 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_8bb43c9", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_1b15dce", 
         option = "dataset$\\`column\\`", value = "dataset$\\`column\\`", 
         label = structure("dataset$`column`", html = TRUE, class = c("html", 
         "character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
@@ -1130,7 +1131,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
     "character")), message = NULL, post_message = NULL), ids = list(
         answer = "second-quiz-4-answer", question = "second-quiz-4"), 
     loading = NULL, random_answer_order = FALSE, allow_retry = FALSE, 
-    seed = 1571822390.76806, options = list()), class = c("learnr_radio", 
+    seed = 26102984.9878449, options = list()), class = c("learnr_radio", 
 "tutorial_question")), session = session)
 </script>
  
@@ -1144,7 +1145,7 @@ 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)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "mean", 
     code = "\n\n", opts = list(label = "\"mean\"", exercise = "TRUE"), 
@@ -1182,7 +1183,7 @@ 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)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "median", 
     code = "ptime <- gameData[[\"Play Time\"]]", opts = list(
@@ -1222,7 +1223,7 @@ 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)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "variance", 
     code = "ptime <- gameData$\"Play Time\"", opts = list(label = "\"variance\"", 
@@ -1262,7 +1263,7 @@ 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)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), 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\"", 
@@ -1302,7 +1303,7 @@ 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)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), chunk_opts = list(label = "setup", 
     include = FALSE)), setup = NULL, chunks = list(list(label = "linear-regression", 
     code = "raters <- gameData$\"Users Rated\"\nowned <- gameData$\"Owned Users\"", 
@@ -1342,7 +1343,7 @@ 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)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
+"library(readxl)", "options(scipen = 10)", "gameData <- read_excel(\"bgg_dataset.xlsx\", sheet = \"Sheet\")", 
 "knitr::opts_chunk$set(echo = FALSE)"), 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", 
@@ -1376,10 +1377,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_b9f351b", 
+    "character")), answers = list(structure(list(id = "lnr_ans_378b4dc", 
         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_ea22999", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_25d3c0d", 
         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", 
@@ -1390,18 +1391,18 @@ 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 = 1862864360.63254, options = list()), class = c("learnr_radio", 
+    seed = 51313380.4761053, options = list()), class = c("learnr_radio", 
 "tutorial_question")), session = session)
 </script>
 
 
 <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 haben hoehere Play Time.", html = TRUE, class = c("html", 
-    "character")), answers = list(structure(list(id = "lnr_ans_69aeae9", 
+    question = structure("Spiele mit hoeherem Complexity Score haben hoehere Play Time.", html = TRUE, class = c("html", 
+    "character")), answers = list(structure(list(id = "lnr_ans_8620b56", 
         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_367d8d6", 
+    "tutorial_quiz_answer")), structure(list(id = "lnr_ans_42abe8b", 
         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", 
@@ -1412,7 +1413,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 = 1097421492.48897, options = list()), class = c("learnr_radio", 
+    seed = 2052683885.04414, options = list()), class = c("learnr_radio", 
 "tutorial_question")), session = session)
 </script>
 </p>
diff --git a/tutorial_page_files/figure-html/lm-plot-example-1.png b/tutorial_page_files/figure-html/lm-plot-example-1.png
index 402dff07588e3368f3fdf9ebbad3d22ca4bc9186..454c9dbe9e842cb79a9345732f91f982b0c6d9a1 100644
Binary files a/tutorial_page_files/figure-html/lm-plot-example-1.png and b/tutorial_page_files/figure-html/lm-plot-example-1.png differ