From 7fbce2caea36f3c54da20759bc83c0f2fc223c21 Mon Sep 17 00:00:00 2001
From: Marcel <m1kehrberg@gmail.com>
Date: Mon, 3 Jul 2023 00:57:45 +0200
Subject: [PATCH] Quiz erweiterung NA

---
 DCProject.Rmd  |  15 +++++-
 DCProject.html | 127 +++++++++++++++++++++++++++++++++++--------------
 2 files changed, 106 insertions(+), 36 deletions(-)

diff --git a/DCProject.Rmd b/DCProject.Rmd
index 478c209..8f9867a 100644
--- a/DCProject.Rmd
+++ b/DCProject.Rmd
@@ -188,12 +188,14 @@ Es können verschiedene Datenvormate eingelesen werden, z.B CSV, XLSX
     na="NA"
     ```
     
+    
 ```{r letter-c, echo=FALSE}
 question("Jetzt bist du dran! Angenommen du möchtest eine .CSV Datei einlesen die im selben Arbeitsverzeichnis liegt, in der Dezimalzahlen mit einem . getrennt werden und fehlende Werte mit NA ausgefüllt werden sollen. Wie gehst du vor?",
   answer('daten_csv <- read.csv("daten.csv")'),
   answer('daten_csv <- read.csv2(file.choose(), na = "NA")'),
   answer('daten_csv <- read.csv("daten.csv", na = "NA")', correct = TRUE),
-  answer('daten_csv <- read.csv2("daten.csv", na = "NA")')
+  answer('daten_csv <- read.csv2("daten.csv", na = "NA")'),
+  answer('daten_csv <- read.csv2("daten.csv", na = "NA" dec= ".")', correct = TRUE)
 )
 ```
     
@@ -229,6 +231,17 @@ narmtest
 rowSums(narmtest, na.rm = TRUE,)
 ```
 
+```{r letter-d, echo=FALSE}
+question("Jetzt bist du dran! Angenommen du möchtest eine der oben genanten Funktionen verwenden welche probleme kann es geben und wie kannst du sie loesen?",
+  answer('Es koennen leerstellen im Datensatzt sein")', correct = TRUE),
+  answer('Ich muss nichts beachten'),
+  answer('Ich benutzen na.remove'),
+  answer('na.rm als parameter an die Funktion mit uebergeben', correct = TRUE),
+  answer('na.omit() verwenden um eine neuen Datensatz zu erstellen', correct = TRUE),
+  answer('Wenn es Probleme mit den Daten geben sollte kann ich nach dem einlesen nichts mehr machen')
+)
+```
+
 ## Datenanalyse
 
 *Information: Die hier dargestellten Tabellen beinhalten zur Veranschaulichung jeweils nur die ersten 10 Zeilen. Unser Datensatz besteht aus 24 Zeilen.*
diff --git a/DCProject.html b/DCProject.html
index 55e3b76..50c31f1 100644
--- a/DCProject.html
+++ b/DCProject.html
@@ -684,6 +684,14 @@ rowMeans()</code></pre>
 </div>
 <pre class="r"><code>rowSums(narmtest, na.rm = TRUE,)</code></pre>
 <pre><code>## [1]  4 15  6</code></pre>
+<div class="panel panel-default tutorial-question-container">
+<div data-label="letter-d" class="tutorial-question panel-body">
+<div id="letter-d-answer_container" class="shiny-html-output"></div>
+<div id="letter-d-message_container" class="shiny-html-output"></div>
+<div id="letter-d-action_button_container" class="shiny-html-output"></div>
+<script>if (Tutorial.triggerMathJax) Tutorial.triggerMathJax()</script>
+</div>
+</div>
 </div>
 </div>
 <div id="section-datenanalyse" class="section level2">
@@ -1113,54 +1121,103 @@ session$onSessionEnded(function() {
 </script>
  
 <script type="application/shiny-prerendered" data-context="server">
-learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "letter-c", question = structure("Jetzt bist du dran! Angenommen du möchtest eine .CSV Datei einlesen die im selben Arbeitsverzeichnis liegt, in der Dezimalzahlen mit einem . getrennt werden und fehlende Werte mit NA ausgefüllt werden sollen. Wie gehst du vor?", html = TRUE, class = c("html", 
-"character")), answers = list(structure(list(id = "lnr_ans_171b41d", 
-    option = "daten_csv <- read.csv(\"daten.csv\")", value = "daten_csv <- read.csv(\"daten.csv\")", 
-    label = structure("daten_csv &lt;- read.csv(“daten.csv”)", 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_5eb6a66", 
-    option = "daten_csv <- read.csv2(file.choose(), na = \"NA\")", 
-    value = "daten_csv <- read.csv2(file.choose(), na = \"NA\")", 
-    label = structure("daten_csv &lt;- read.csv2(file.choose(), na = “NA”)", 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_f1ef3b5", 
-    option = "daten_csv <- read.csv(\"daten.csv\", na = \"NA\")", 
-    value = "daten_csv <- read.csv(\"daten.csv\", na = \"NA\")", 
-    label = structure("daten_csv &lt;- read.csv(“daten.csv”, na = “NA”)", 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_114e0d3", 
-    option = "daten_csv <- read.csv2(\"daten.csv\", na = \"NA\")", 
-    value = "daten_csv <- read.csv2(\"daten.csv\", na = \"NA\")", 
-    label = structure("daten_csv &lt;- read.csv2(“daten.csv”, na = “NA”)", 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", 
-"character")), try_again = structure("<span data-i18n=\"button.questiontryagain\">Try Again<\u002fspan>", html = TRUE, class = c("html", 
-"character"))), messages = list(correct = structure("Correct!", html = TRUE, class = c("html", 
-"character")), try_again = structure("Incorrect", html = TRUE, class = c("html", 
-"character")), incorrect = structure("Incorrect", html = TRUE, class = c("html", 
-"character")), message = NULL, post_message = NULL), ids = list(
-    answer = "letter-c-answer", question = "letter-c"), loading = NULL, 
-    random_answer_order = FALSE, allow_retry = FALSE, seed = 2009452949.56428, 
-    options = list()), class = c("learnr_radio", "tutorial_question"
+learnr:::question_prerendered_chunk(structure(list(type = "learnr_checkbox", label = "letter-c", 
+    question = structure("Jetzt bist du dran! Angenommen du möchtest eine .CSV Datei einlesen die im selben Arbeitsverzeichnis liegt, in der Dezimalzahlen mit einem . getrennt werden und fehlende Werte mit NA ausgefüllt werden sollen. Wie gehst du vor?", html = TRUE, class = c("html", 
+    "character")), answers = list(structure(list(id = "lnr_ans_2877cf6", 
+        option = "daten_csv <- read.csv(\"daten.csv\")", value = "daten_csv <- read.csv(\"daten.csv\")", 
+        label = structure("daten_csv &lt;- read.csv(“daten.csv”)", 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_f9e06f8", 
+        option = "daten_csv <- read.csv2(file.choose(), na = \"NA\")", 
+        value = "daten_csv <- read.csv2(file.choose(), na = \"NA\")", 
+        label = structure("daten_csv &lt;- read.csv2(file.choose(), na = “NA”)", 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_3f0ce1b", 
+        option = "daten_csv <- read.csv(\"daten.csv\", na = \"NA\")", 
+        value = "daten_csv <- read.csv(\"daten.csv\", na = \"NA\")", 
+        label = structure("daten_csv &lt;- read.csv(“daten.csv”, na = “NA”)", 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_efbb2a2", 
+        option = "daten_csv <- read.csv2(\"daten.csv\", na = \"NA\")", 
+        value = "daten_csv <- read.csv2(\"daten.csv\", na = \"NA\")", 
+        label = structure("daten_csv &lt;- read.csv2(“daten.csv”, na = “NA”)", 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_f85c7e2", 
+        option = "daten_csv <- read.csv2(\"daten.csv\", na = \"NA\" dec= \".\")", 
+        value = "daten_csv <- read.csv2(\"daten.csv\", na = \"NA\" dec= \".\")", 
+        label = structure("daten_csv &lt;- read.csv2(“daten.csv”, na = “NA” dec= “.”)", 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", 
+    "character")), try_again = structure("<span data-i18n=\"button.questiontryagain\">Try Again<\u002fspan>", html = TRUE, class = c("html", 
+    "character"))), messages = list(correct = structure("Correct!", html = TRUE, class = c("html", 
+    "character")), try_again = structure("Incorrect. Be sure to select every correct answer.", html = TRUE, class = c("html", 
+    "character")), incorrect = structure("Incorrect", html = TRUE, class = c("html", 
+    "character")), message = NULL, post_message = NULL), ids = list(
+        answer = "letter-c-answer", question = "letter-c"), loading = NULL, 
+    random_answer_order = FALSE, allow_retry = FALSE, seed = 1175380697.95267, 
+    options = list()), class = c("learnr_checkbox", "tutorial_question"
 )), session = session)
 </script>
 
 
+<script type="application/shiny-prerendered" data-context="server">
+learnr:::question_prerendered_chunk(structure(list(type = "learnr_checkbox", label = "letter-d", 
+    question = structure("Jetzt bist du dran! Angenommen du möchtest eine der oben genanten Funktionen verwenden welche probleme kann es geben und wie kannst du sie loesen?", html = TRUE, class = c("html", 
+    "character")), answers = list(structure(list(id = "lnr_ans_69e1b79", 
+        option = "Es koennen leerstellen im Datensatzt sein\")", 
+        value = "Es koennen leerstellen im Datensatzt sein\")", 
+        label = structure("Es koennen leerstellen im Datensatzt sein”)", 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_6dc5205", 
+        option = "Ich muss nichts beachten", value = "Ich muss nichts beachten", 
+        label = structure("Ich muss nichts beachten", 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_d0fb3b7", 
+        option = "Ich benutzen na.remove", value = "Ich benutzen na.remove", 
+        label = structure("Ich benutzen na.remove", 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_29f3317", 
+        option = "na.rm als parameter an die Funktion mit uebergeben", 
+        value = "na.rm als parameter an die Funktion mit uebergeben", 
+        label = structure("na.rm als parameter an die Funktion mit uebergeben", 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_e10e535", 
+        option = "na.omit() verwenden um eine neuen Datensatz zu erstellen", 
+        value = "na.omit() verwenden um eine neuen Datensatz zu erstellen", 
+        label = structure("na.omit() verwenden um eine neuen Datensatz zu erstellen", 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_2729e6d", 
+        option = "Wenn es Probleme mit den Daten geben sollte kann ich nach dem einlesen nichts mehr machen", 
+        value = "Wenn es Probleme mit den Daten geben sollte kann ich nach dem einlesen nichts mehr machen", 
+        label = structure("Wenn es Probleme mit den Daten geben sollte kann ich nach dem einlesen nichts mehr machen", 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", 
+    "character")), try_again = structure("<span data-i18n=\"button.questiontryagain\">Try Again<\u002fspan>", html = TRUE, class = c("html", 
+    "character"))), messages = list(correct = structure("Correct!", html = TRUE, class = c("html", 
+    "character")), try_again = structure("Incorrect. Be sure to select every correct answer.", html = TRUE, class = c("html", 
+    "character")), incorrect = structure("Incorrect", html = TRUE, class = c("html", 
+    "character")), message = NULL, post_message = NULL), ids = list(
+        answer = "letter-d-answer", question = "letter-d"), loading = NULL, 
+    random_answer_order = FALSE, allow_retry = FALSE, seed = 669280722.688342, 
+    options = list()), class = c("learnr_checkbox", "tutorial_question"
+)), session = session)
+</script>
+ 
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "letter-b", question = structure("Jetzt bist du dran! Wie müssten wir den Befehl umändern, um nur mit der Anzahl der Deutschen Männlichen und Weiblichen Studend:innen weiterzuarbeiten?", html = TRUE, class = c("html", 
-"character")), answers = list(structure(list(id = "lnr_ans_37ebccb", 
+"character")), answers = list(structure(list(id = "lnr_ans_68d6701", 
     option = "selected_data <- data[3:2,])", value = "selected_data <- data[3:2,])", 
     label = structure("selected_data &lt;- data[3:2,])", 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_2a91406", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_93b3193", 
     option = "selected_data <- data[5:9,]", value = "selected_data <- data[5:9,]", 
     label = structure("selected_data &lt;- data[5:9,]", 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_cb236d6", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_60b69e6", 
     option = "selected_data <- data[ ,2:3]", value = "selected_data <- data[ ,2:3]", 
     label = structure("selected_data &lt;- data[ ,2:3]", 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_a57fc9d", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_8096242", 
     option = "selected_data <- data[ ,1:2]", value = "selected_data <- data[ ,1:2]", 
     label = structure("selected_data &lt;- data[ ,1:2]", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
@@ -1171,7 +1228,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 = "letter-b-answer", question = "letter-b"), loading = NULL, 
-    random_answer_order = FALSE, allow_retry = FALSE, seed = 1183554803.94886, 
+    random_answer_order = FALSE, allow_retry = FALSE, seed = 201975246.405948, 
     options = list()), class = c("learnr_radio", "tutorial_question"
 )), session = session)
 </script>
@@ -1183,7 +1240,7 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label
 <!--/html_preserve-->
 <!--html_preserve-->
 <script type="application/shiny-prerendered" data-context="execution_dependencies">
-{"type":"list","attributes":{"names":{"type":"character","attributes":{},"value":["packages"]}},"value":[{"type":"list","attributes":{"names":{"type":"character","attributes":{},"value":["packages","version"]},"class":{"type":"character","attributes":{},"value":["data.frame"]},"row.names":{"type":"integer","attributes":{},"value":[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57]}},"value":[{"type":"character","attributes":{},"value":["backports","base","bslib","cachem","cellranger","checkmate","cli","commonmark","compiler","datasets","digest","dplyr","ellipsis","evaluate","fansi","fastmap","fontawesome","generics","glue","graphics","grDevices","highr","htmltools","htmlwidgets","httpuv","jquerylib","jsonlite","knitr","later","learnr","lifecycle","magrittr","markdown","methods","mime","pillar","pkgconfig","promises","R6","Rcpp","readxl","rlang","rmarkdown","rprojroot","sass","shiny","stats","tibble","tidyselect","tools","utf8","utils","vctrs","withr","xfun","xtable","yaml"]},{"type":"character","attributes":{},"value":["1.4.1","4.2.3","0.5.0","1.0.8","1.1.0","2.2.0","3.6.1","1.9.0","4.2.3","4.2.3","0.6.31","1.1.2","0.3.2","0.21","1.0.4","1.1.1","0.5.1","0.1.3","1.6.2","4.2.3","4.2.3","0.10","0.5.5","1.6.2","1.6.11","0.1.4","1.8.5","1.43","1.3.1","0.11.4","1.0.3","2.0.3","1.7","4.2.3","0.12","1.9.0","2.0.3","1.2.0.1","2.5.1","1.0.10","1.4.2","1.1.1","2.22","2.0.3","0.4.6","1.7.4","4.2.3","3.2.1","1.2.0","4.2.3","1.2.3","4.2.3","0.6.3","2.5.0","0.39","1.8-4","2.3.7"]}]}]}
+{"type":"list","attributes":{"names":{"type":"character","attributes":{},"value":["packages"]}},"value":[{"type":"list","attributes":{"names":{"type":"character","attributes":{},"value":["packages","version"]},"class":{"type":"character","attributes":{},"value":["data.frame"]},"row.names":{"type":"integer","attributes":{},"value":[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57]}},"value":[{"type":"character","attributes":{},"value":["backports","base","bslib","cachem","cellranger","checkmate","cli","commonmark","compiler","datasets","digest","dplyr","ellipsis","evaluate","fansi","fastmap","fontawesome","generics","glue","graphics","grDevices","highr","htmltools","htmlwidgets","httpuv","jquerylib","jsonlite","knitr","later","learnr","lifecycle","magrittr","markdown","methods","mime","pillar","pkgconfig","promises","R6","Rcpp","readxl","rlang","rmarkdown","rprojroot","sass","shiny","stats","tibble","tidyselect","tools","utf8","utils","vctrs","withr","xfun","xtable","yaml"]},{"type":"character","attributes":{},"value":["1.4.1","4.3.1","0.5.0","1.0.8","1.1.0","2.2.0","3.6.1","1.9.0","4.3.1","4.3.1","0.6.32","1.1.2","0.3.2","0.21","1.0.4","1.1.1","0.5.1","0.1.3","1.6.2","4.3.1","4.3.1","0.10","0.5.5","1.6.2","1.6.11","0.1.4","1.8.5","1.43","1.3.1","0.11.4","1.0.3","2.0.3","1.7","4.3.1","0.12","1.9.0","2.0.3","1.2.0.1","2.5.1","1.0.10","1.4.2","1.1.1","2.22","2.0.3","0.4.6","1.7.4","4.3.1","3.2.1","1.2.0","4.3.1","1.2.3","4.3.1","0.6.3","2.5.0","0.39","1.8-4","2.3.7"]}]}]}
 </script>
 <!--/html_preserve-->
 </div>
-- 
GitLab