From 83a1ca0596fd95af0eacc5ffdc259803e5b0ec40 Mon Sep 17 00:00:00 2001
From: alex-thomson222 <alex.thomson@stats4sd.org>
Date: Tue, 14 Nov 2023 10:38:15 +0000
Subject: [PATCH 1/2] fix links

---
 index.Rmd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/index.Rmd b/index.Rmd
index 4079f0e..942fb1c 100644
--- a/index.Rmd
+++ b/index.Rmd
@@ -95,7 +95,7 @@ question("What is important for your data if you want to import it into R? (sele
 
 0. Start a new project file, and a new RMD script file and write the initial set up code to import the happiness dataset and load the `dplyr` and `ggplot2` libraries. Remember to save the Excel file in CSV format before importing the data.
 (If you were following along to here directly from the workbook you may have already done this; so you can skip this step!).
-You can find the Excel file here: [Happiness.xlsx](https://github.com/stats4sd/r2020_04Importation/raw/main/Happiness.xlsx)
+You can find the Excel file here: [Happiness.xlsx](https://github.com/stats4sd/RCourse_2023_download_files/raw/dev/Happiness.xlsx)
 
 1.	Find the 5 countries with the lowest ‘generosity scores’  
 
@@ -106,7 +106,7 @@ You can find the Excel file here: [Happiness.xlsx](https://github.com/stats4sd/r
 
 **Exercise 2: Download the file below that contains the imdb dataset and the Module 3 exercises in RMD format.** 
 
-[Module-3-Exercises.zip](https://github.com/stats4sd/r2020_04Quiz/raw/main/Module%203%20Exercises.zip)
+[Module-3-Exercises.zip](https://github.com/stats4sd/RCourse_2023_download_files/raw/dev/Module%203%20Exercises.zip)
 
 Create a new project in RStudio and unzip the files into your new project folder. 
 

From 1a0ad82687c3a9b0ee61d02fbeec23fc2408aea3 Mon Sep 17 00:00:00 2001
From: alex-thomson222 <alex.thomson@stats4sd.org>
Date: Tue, 14 Nov 2023 10:45:04 +0000
Subject: [PATCH 2/2] update html

---
 index.html | 56 +++++++++++++++++++++++++++---------------------------
 1 file changed, 28 insertions(+), 28 deletions(-)

diff --git a/index.html b/index.html
index 203a0ba..2ba912c 100644
--- a/index.html
+++ b/index.html
@@ -164,7 +164,7 @@ <h2>Exercises</h2>
 following along to here directly from the workbook you may have already
 done this; so you can skip this step!). You can find the Excel file
 here: <a
-href="https://github.com/stats4sd/r2020_04Importation/raw/main/Happiness.xlsx">Happiness.xlsx</a></p></li>
+href="https://github.com/stats4sd/RCourse_2023_download_files/raw/dev/Happiness.xlsx">Happiness.xlsx</a></p></li>
 <li><p>Find the 5 countries with the lowest ‘generosity scores’</p></li>
 <li><p>Produce a subset of countries which have below average scores for
 both GDP and generosity.</p></li>
@@ -174,7 +174,7 @@ <h2>Exercises</h2>
 <p><strong>Exercise 2: Download the file below that contains the imdb
 dataset and the Module 3 exercises in RMD format.</strong></p>
 <p><a
-href="https://github.com/stats4sd/r2020_04Quiz/raw/main/Module%203%20Exercises.zip">Module-3-Exercises.zip</a></p>
+href="https://github.com/stats4sd/RCourse_2023_download_files/raw/dev/Module%203%20Exercises.zip">Module-3-Exercises.zip</a></p>
 <p>Create a new project in RStudio and unzip the files into your new
 project folder.</p>
 <p>Then open the workbook, and load in the libraries and the dataset.
@@ -364,22 +364,22 @@ <h2>Appendix: Useful reference links</h2>
  
 <script type="application/shiny-prerendered" data-context="server">
 learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "Q1", question = structure("Which of these statements is true?", html = TRUE, class = c("html", 
-"character")), answers = list(structure(list(id = "lnr_ans_39f2698", 
+"character")), answers = list(structure(list(id = "lnr_ans_d66d284", 
     option = "RStudio is useless without R", value = "RStudio is useless without R", 
     label = structure("RStudio is useless without R", 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_d19ff2f", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_e64e8c9", 
     option = "R is a powerful Interactive Development Environment", 
     value = "R is a powerful Interactive Development Environment", 
     label = structure("R is a powerful Interactive Development Environment", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = structure("No, RStudio is the IDE", html = TRUE, class = c("html", 
     "character")), type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_d9fff3a", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_91a79a7", 
     option = "Without RStudio, you cannot use R", value = "Without RStudio, you cannot use R", 
     label = structure("Without RStudio, you cannot use R", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = structure("R can work very well without RStudio. It’s just not that user friendly", html = TRUE, class = c("html", 
     "character")), type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_feb3329", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_de01066", 
     option = "You need to install RStudio first, then you can install R", 
     value = "You need to install RStudio first, then you can install R", 
     label = structure("You need to install RStudio first, then you can install R", html = TRUE, class = c("html", 
@@ -392,55 +392,55 @@ <h2>Appendix: Useful reference links</h2>
 "character")), incorrect = structure("Incorrect", html = TRUE, class = c("html", 
 "character")), message = NULL, post_message = NULL), ids = list(
     answer = "Q1-answer", question = "Q1"), loading = NULL, random_answer_order = TRUE, 
-    allow_retry = TRUE, seed = 1468672435.3161, options = list()), class = c("learnr_radio", 
+    allow_retry = TRUE, seed = 1832771916.14655, 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 = "Q2", question = structure("Why is R giving an error in the above screenshot?", html = TRUE, class = c("html", 
-"character")), answers = list(structure(list(id = "lnr_ans_6653521", 
+"character")), answers = list(structure(list(id = "lnr_ans_136cf0e", 
     option = "The command for reading the data is missing", value = "The command for reading the data is missing", 
     label = structure("The command for reading the data is missing", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = structure("No, it is present at the top of the file: Pulse &lt;- read.csv(‘Pulse.csv’)", html = TRUE, class = c("html", 
     "character")), type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_3bc7494", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_23909c4", 
     option = "The command library(ggplot2) is missing", value = "The command library(ggplot2) is missing", 
     label = structure("The command library(ggplot2) is missing", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = structure("It is missing, but we don’t need it, since we are not plotting anything", html = TRUE, class = c("html", 
     "character")), type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_736ddf7", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_435ed0c", 
     option = "We did not specify the name of our summary statistic", 
     value = "We did not specify the name of our summary statistic", 
     label = structure("We did not specify the name of our summary statistic", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = structure("It’s good practice to name our summary statistics indeed, but ommiting the name is not an ‘error’", html = TRUE, class = c("html", 
     "character")), type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_73eede7", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_fc210d1", 
     option = "The column names are incorrect", value = "The column names are incorrect", 
     label = structure("The column names are incorrect", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = structure("No, the column names are correct", html = TRUE, class = c("html", 
     "character")), type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_5632b26", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_67d00f8", 
     option = "Pipes don't work within R chunks", value = "Pipes don't work within R chunks", 
     label = structure("Pipes don’t work within R chunks", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = structure("pipes work very well within R chunks", html = TRUE, class = c("html", 
     "character")), type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_10c1882", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_565260", 
     option = "The project file was not created", value = "The project file was not created", 
     label = structure("The project file was not created", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = structure("We can’t tell from this screenshot whether a project file was created or not. We can say that it cannot be responsible for the error though.", html = TRUE, class = c("html", 
     "character")), type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_4e688d7", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_86b6178", 
     option = "The command library(dplyr) is missing", value = "The command library(dplyr) is missing", 
     label = structure("The command library(dplyr) is missing", 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_977fbe7", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_19b1536", 
     option = "The symbol used for the pipe operator is wrong", 
     value = "The symbol used for the pipe operator is wrong", 
     label = structure("The symbol used for the pipe operator is wrong", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = structure("%&gt;% is the right symbol for the pipe operator", html = TRUE, class = c("html", 
     "character")), type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_3d0ee33", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_d1e3975", 
     option = "We are using pipes, but the data argument of each function is missing", 
     value = "We are using pipes, but the data argument of each function is missing", 
     label = structure("We are using pipes, but the data argument of each function is missing", html = TRUE, class = c("html", 
@@ -453,30 +453,30 @@ <h2>Appendix: Useful reference links</h2>
 "character")), incorrect = structure("Incorrect", html = TRUE, class = c("html", 
 "character")), message = NULL, post_message = NULL), ids = list(
     answer = "Q2-answer", question = "Q2"), loading = NULL, random_answer_order = TRUE, 
-    allow_retry = TRUE, seed = 1908256421.1114, options = list()), class = c("learnr_radio", 
+    allow_retry = TRUE, seed = 358763236.332938, 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 = "Q3", question = structure("The above R Markdown file runs fine, but is missing the point of using R Markdown. Why?", html = TRUE, class = c("html", 
-"character")), answers = list(structure(list(id = "lnr_ans_8449718", 
+"character")), answers = list(structure(list(id = "lnr_ans_5b9c4ca", 
     option = "The comments should be part of the text outside the R chunks. That way, an R Markdown document can become a proper report", 
     value = "The comments should be part of the text outside the R chunks. That way, an R Markdown document can become a proper report", 
     label = structure("The comments should be part of the text outside the R chunks. That way, an R Markdown document can become a proper report", 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_cdc45d2", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_b57651f", 
     option = "With R Markdown, all the libraries are already preloaded, so there's no need to have commands that load libraries!", 
     value = "With R Markdown, all the libraries are already preloaded, so there's no need to have commands that load libraries!", 
     label = structure("With R Markdown, all the libraries are already preloaded, so there’s no need to have commands that load libraries!", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = structure("No, you still need to load libraries in an R Markdown file", html = TRUE, class = c("html", 
     "character")), type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_2a06a0a", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_619ab24", 
     option = "R Markdown is made for writing R code. Ideally, we shouldn't have any text or comment in such document, so that it is reproducible", 
     value = "R Markdown is made for writing R code. Ideally, we shouldn't have any text or comment in such document, so that it is reproducible", 
     label = structure("R Markdown is made for writing R code. Ideally, we shouldn’t have any text or comment in such document, so that it is reproducible", html = TRUE, class = c("html", 
     "character")), correct = FALSE, message = structure("No, the advantage of R Markdown is that it is great for writing reproducible reports. So it should contain text", html = TRUE, class = c("html", 
     "character")), type = "literal"), class = c("tutorial_question_answer", 
-"tutorial_quiz_answer")), structure(list(id = "lnr_ans_6593090", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_804cfae", 
     option = "The commands should all be included in the same R chunk, so that they can be run altogether. That's the beauty of R Markdown!", 
     value = "The commands should all be included in the same R chunk, so that they can be run altogether. That's the beauty of R Markdown!", 
     label = structure("The commands should all be included in the same R chunk, so that they can be run altogether. That’s the beauty of R Markdown!", html = TRUE, class = c("html", 
@@ -489,33 +489,33 @@ <h2>Appendix: Useful reference links</h2>
 "character")), incorrect = structure("Incorrect", html = TRUE, class = c("html", 
 "character")), message = NULL, post_message = NULL), ids = list(
     answer = "Q3-answer", question = "Q3"), loading = NULL, random_answer_order = TRUE, 
-    allow_retry = TRUE, seed = 68550497.9680787, options = list()), class = c("learnr_radio", 
+    allow_retry = TRUE, seed = 1371941672.36114, 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_checkbox", label = "Q4", question = structure("What is important for your data if you want to import it into R? (select all that apply)", html = TRUE, class = c("html", 
-"character")), answers = list(structure(list(id = "lnr_ans_8b5b744", 
+"character")), answers = list(structure(list(id = "lnr_ans_8951b6e", 
     option = "It should be made of one single rectangle of data", 
     value = "It should be made of one single rectangle of data", 
     label = structure("It should be made of one single rectangle of data", 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_bafde46", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_d647a0e", 
     option = "The column names should lie in one row only", value = "The column names should lie in one row only", 
     label = structure("The column names should lie in one row only", 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_53f0e14", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_e12bf7d", 
     option = "There shouldn't be any gap between rows or columns", 
     value = "There shouldn't be any gap between rows or columns", 
     label = structure("There shouldn’t be any gap between rows or columns", 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_2aa8d62", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_f7fa2b5", 
     option = "All the columns should have the same length, and the same for the rows", 
     value = "All the columns should have the same length, and the same for the rows", 
     label = structure("All the columns should have the same length, and the same for the rows", 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_a4e48cb", 
+"tutorial_quiz_answer")), structure(list(id = "lnr_ans_8867420", 
     option = "It shouldn't contain any merged cells", value = "It shouldn't contain any merged cells", 
     label = structure("It shouldn’t contain any merged cells", html = TRUE, class = c("html", 
     "character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer", 
@@ -526,7 +526,7 @@ <h2>Appendix: Useful reference links</h2>
 "character")), incorrect = structure("Incorrect", html = TRUE, class = c("html", 
 "character")), message = NULL, post_message = NULL), ids = list(
     answer = "Q4-answer", question = "Q4"), loading = NULL, random_answer_order = TRUE, 
-    allow_retry = TRUE, seed = 1833733690.6461, options = list()), class = c("learnr_checkbox", 
+    allow_retry = TRUE, seed = 462875113.784457, options = list()), class = c("learnr_checkbox", 
 "tutorial_question")), session = session)
 </script>
 </p>