syllabus.Rmd

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

\  

The course will start at 09:30 each morning and finish at 17:00. We will break for a one hour lunch break around 12:30. However, everyone learns R and statistics in their own way and at their own pace so this syllabus should be treated as indicative rather than absolute. There will also be plenty of opportunities to take short breaks during the course.

The live sessions will be held on Blackboard Collaborate at the time indicated in the timetable below. The recorded video lectures will be hosted on MyAberdeen and you should watch them at the time indicated below.

<!--All teaching will be held in room FN113 in the Fraser Noble building (building No. 7 on [this map](images/uoa_map.png){target="_blank"} on the old Aberdeen campus).
-->

```{r timetable, echo=FALSE}
library(kableExtra)

# Create a new data frame with days as rows and time slots as columns
df_new <- data.frame(
  Day = c("**Monday**", "**Tuesday**", "**Wednesday**", "**Thursday**"),
  `09:30 - 12:30` = c("Introducing GLMs (recorded)", 
                      "Poisson GLMs (recorded)", 
                      "Binomial GLMs (recorded)", 
                      "Bernoulli GLMs (recorded)"),
  `12:30 - 13:30` = rep("*Lunch*", 4),
  `13:30 - 17:00` = c("_**Free**_", 
                      "Poisson GLM - live practical", 
                      "Binomial GLM - live practical", 
                      "Bernoulli GLM - live practical<br>**[16:30-17:00: LM and GLM Q&A]**"),
  check.names = FALSE
)

# Render the table with kableExtra. The escape = FALSE allows the Markdown/HTML formatting in the cells.
kbl(df_new, escape = FALSE, align = "c") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE, stripe_color = "#839FBB")
```