diff --git a/DCProject.Rmd b/DCProject.Rmd index 5da2c61bf488a7864dce688dd3d20b72949ce864..8f9867a08bbd4b88b6e7669bdd03d7c5a02c5e6c 100644 --- a/DCProject.Rmd +++ b/DCProject.Rmd @@ -251,30 +251,24 @@ Hier ist unser tatsächlicher Datensatz aus der Excel-Datei: kable(head(data,10)) ``` -```{r letter-b, echo=FALSE} -question("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?", - answer("selected_data <- data[3:2,])"), - answer("selected_data <- data[5:9,]"), - answer("selected_data <- data[ ,8:9]", correct = TRUE), - answer("selected_data <- data[ ,1:2]") -) -``` - ### Eigenschaften der Daten Nun können wir Eigenschaften wie Mittelwert, Median, Varianz und die Standartabweichung berechnen. Dazu nutzen wir die 8. und 9. Spalte. Diese enthalten die gesamte Anzahl der Männlichen und Weiblichen Student:innen der Jahre: -```{r echo = FALSE} -#echo = FALSE, da dieses Statement ansonst ausgegeben wird. Das würde naehmlich keinen Sinn machen, da das Quiz genau dieses Statement abfragen soll -selected_data <- data[ ,8:9] -``` - ```{r} +selected_data <- data[ ,8:9] kable(head(selected_data, 10)) ``` - +```{r letter-b, echo=FALSE} +question("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?", + answer("selected_data <- data[3:2,])"), + answer("selected_data <- data[5:9,]"), + answer("selected_data <- data[ ,2:3]", correct = TRUE), + answer("selected_data <- data[ ,1:2]") +) +``` Wir teilen die Daten in männlich und weiblich. Zusätzlich werden die Spalten etwas konvertiert: ```{r} data_male <- as.numeric(unlist(selected_data[-1 ,1])) diff --git a/DCProject.html b/DCProject.html index 50c31f18af814f91d26b8f82864caf96b78d630d..1c0e5c43a9457a130e1a5bfa2edc1ca8199573f2 100644 --- a/DCProject.html +++ b/DCProject.html @@ -1123,26 +1123,26 @@ session$onSessionEnded(function() { <script type="application/shiny-prerendered" data-context="server"> 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", + "character")), answers = list(structure(list(id = "lnr_ans_40e3e9e", option = "daten_csv <- read.csv(\"daten.csv\")", value = "daten_csv <- read.csv(\"daten.csv\")", label = structure("daten_csv <- 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", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_c34e4e9", option = "daten_csv <- read.csv2(file.choose(), na = \"NA\")", value = "daten_csv <- read.csv2(file.choose(), na = \"NA\")", label = structure("daten_csv <- 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", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_4aaad0b", option = "daten_csv <- read.csv(\"daten.csv\", na = \"NA\")", value = "daten_csv <- read.csv(\"daten.csv\", na = \"NA\")", label = structure("daten_csv <- 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", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_bbe5a62", option = "daten_csv <- read.csv2(\"daten.csv\", na = \"NA\")", value = "daten_csv <- read.csv2(\"daten.csv\", na = \"NA\")", label = structure("daten_csv <- 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", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_3f52b2c", option = "daten_csv <- read.csv2(\"daten.csv\", na = \"NA\" dec= \".\")", value = "daten_csv <- read.csv2(\"daten.csv\", na = \"NA\" dec= \".\")", label = structure("daten_csv <- read.csv2(“daten.csvâ€, na = “NA†dec= “.â€)", html = TRUE, class = c("html", @@ -1154,7 +1154,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 = "letter-c-answer", question = "letter-c"), loading = NULL, - random_answer_order = FALSE, allow_retry = FALSE, seed = 1175380697.95267, + random_answer_order = FALSE, allow_retry = FALSE, seed = 986385894.040678, options = list()), class = c("learnr_checkbox", "tutorial_question" )), session = session) </script> @@ -1163,30 +1163,30 @@ learnr:::question_prerendered_chunk(structure(list(type = "learnr_checkbox", lab <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", + "character")), answers = list(structure(list(id = "lnr_ans_bafbd58", 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", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_6606e0b", 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", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_71af422", 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", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_e489dd0", 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", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_374e6d9", 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", + "tutorial_quiz_answer")), structure(list(id = "lnr_ans_4d8668c", 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", @@ -1198,26 +1198,26 @@ 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 = "letter-d-answer", question = "letter-d"), loading = NULL, - random_answer_order = FALSE, allow_retry = FALSE, seed = 669280722.688342, + random_answer_order = FALSE, allow_retry = FALSE, seed = 1703390819.7068, 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_68d6701", +"character")), answers = list(structure(list(id = "lnr_ans_89788fc", option = "selected_data <- data[3:2,])", value = "selected_data <- data[3:2,])", label = structure("selected_data <- 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_93b3193", +"tutorial_quiz_answer")), structure(list(id = "lnr_ans_5efe997", option = "selected_data <- data[5:9,]", value = "selected_data <- data[5:9,]", label = structure("selected_data <- 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_60b69e6", +"tutorial_quiz_answer")), structure(list(id = "lnr_ans_c36eb22", option = "selected_data <- data[ ,2:3]", value = "selected_data <- data[ ,2:3]", label = structure("selected_data <- 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_8096242", +"tutorial_quiz_answer")), structure(list(id = "lnr_ans_fc68048", option = "selected_data <- data[ ,1:2]", value = "selected_data <- data[ ,1:2]", label = structure("selected_data <- data[ ,1:2]", html = TRUE, class = c("html", "character")), correct = FALSE, message = NULL, type = "literal"), class = c("tutorial_question_answer", @@ -1228,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 = 201975246.405948, + random_answer_order = FALSE, allow_retry = FALSE, seed = 1217726423.93295, options = list()), class = c("learnr_radio", "tutorial_question" )), session = session) </script> diff --git a/DCProject_files/figure-html/unnamed-chunk-13-1.png b/DCProject_files/figure-html/unnamed-chunk-13-1.png new file mode 100644 index 0000000000000000000000000000000000000000..5426a0edafb5544d3699f2c4aa936ead6e3a6cc0 Binary files /dev/null and b/DCProject_files/figure-html/unnamed-chunk-13-1.png differ