exercises.Rmd

---
title: 'Exercises'
output: 
  html_document:
    toc: false
---

```{r, include=FALSE}
library(knitr)
library(stringr)
knitr::opts_chunk$set(message=FALSE, warning=FALSE, eval=TRUE, echo=FALSE)
suppressPackageStartupMessages(library(dplyr))
suppressPackageStartupMessages(library(stringr))
source('reveal.R')
```

\  

### Exercises

The following exercises will test your understanding of the material covered during this course. Each exercise corresponds to material covered in each section of the Introduction to R manual. It’s entirely up to you how you progress through these exercises, everyone learns at their own pace and in their own way. You can either work your way through each section of the manual and then test your understanding of the material by completing the associated exercise. Alternatively, you can start with each exercise and refer back to the appropriate material in the manual. Or find another way that works for you. Whichever approach you use, make sure that you write your R code in RStudio (or your favourite script editor), annotate it liberally and save it regularly. At the end of the course you will have many hundreds of lines of code that you can refer back to at a later date when you’ve forgotten most of it! I will release the [solutions to the exercises](exercise_solutions.html){target="_blank"} as the course progresses. If you prefer to download these exercises in pdf format you can [find them here](exercise_pdf.html){target="_blank"}. 

Finally, just a word about the content of the exercises. Initially, some of the material in the exercises might strike you as ‘pointless’, ‘trivial’ or ‘irrelevant’ and you may even ask yourself what possible use is generating sequences of numbers, concatenating elements in a vector or ordering lists of names (to name but a few).  However, please stick with it, you’ll be amazed how many times you will use the skills (and code) that you have learned throughout these exercises when it comes to dealing with and analysing your own data. 

Have fun!

\  


```{r, reveal, echo=FALSE, eval = isFALSE(show_exercise)}
cat("Exercises will be released as the course progresses")
```

\  

```{r, results='asis', eval = isTRUE(show_exercise)}
ex_text <- c(": Getting to know R and RStudio", ": Basic R operations", 
             ": Importing and manipulating dataframes", 
             ": Visualising data using base R and lattice graphics",
             ": Basic statistics in R", 
             ": Basic programming in R")

file_name <- list.files('.') %>%
  sort %>% 
  grep("exercise_[0-9].html", . , value=TRUE)

link_name <- file_name %>%
  gsub("\\.html", "", .) %>%
  gsub("_", " ", .) %>%
  str_to_sentence(.)

paste0("- [", link_name, ex_text, "](", file_name, "){target='_blank'}") %>%
cat(sep="\n\n")
```

\  

```{r, include = FALSE}
# TODO: generate list automagically
rmarkdown::render("exercise_1.Rmd", output_format = "pdf_document", output_file = "./exercises/exercise_1.pdf", quiet = TRUE)
rmarkdown::render("exercise_2.Rmd", output_format = "pdf_document", output_file = "./exercises/exercise_2.pdf", quiet = TRUE)
rmarkdown::render("exercise_3.Rmd", output_format = "pdf_document", output_file = "./exercises/exercise_3.pdf", quiet = TRUE)
rmarkdown::render("exercise_4.Rmd", output_format = "pdf_document", output_file = "./exercises/exercise_4.pdf", quiet = TRUE)
rmarkdown::render("exercise_5.Rmd", output_format = "pdf_document", output_file = "./exercises/exercise_5.pdf", quiet = TRUE)
rmarkdown::render("exercise_6.Rmd", output_format = "pdf_document", output_file = "./exercises/exercise_6.pdf", quiet = TRUE)

```

[pdf version of exercises](exercise_pdf.html)

[Exercise solutions](exercise_solutions.html)