index.qmd

---
title: "ETC3550/5550 Applied forecasting"
---

```{r}
#| label: load_packages
#| include: false
#| message: false
#| warning: false
#| echo: false
#| cache: false
library(tidyverse)
options(knitr.kable.NA = '')
source(here::here("course_info.R"))
week <- as.integer(1 + ((Sys.Date() - as_date(start_semester))/7))
```

## Teaching team
### Lecturer/Chief Examiner


:::: {.columns}

::: {.column width="25%"}

![](https://robjhyndman.com/img/RJH_AAS_small.png){style="width: 80%;"}
:::

::: {.column width="75%"}

[**Rob J Hyndman**](https://robjhyndman.com)

Email: [Rob.Hyndman@monash.edu](mailto:Rob.Hyndman@monash.edu)

:::

::::

### Head Tutor

:::: {.columns}

::: {.column width="25%"}

![](/img/mitch.png){style="width: 80%;"}
:::

::: {.column width="75%"}

[**Mitchell O'Hara-Wild**](https://mitchelloharawild.com)

Email: [Mitch.OHara-Wild@monash.edu](mailto:Mitch.OHara-Wild@monash.edu)

:::

::::

### Tutors

:::: {.columns}

::: {.column .centeredcolumn width = "33%"}
![](/img/maliny.png){style="width: 65%;"}

Maliny Poh

:::

::: {.column .centeredcolumn width = "33%"}
![](/img/nuwani.png){style="width: 65%;"}

Nuwani Palihawadana

:::

::: {.column .centeredcolumn width = "33%"}
![](/img/sapphire.png){style="width: 65%;"}

Xiefei (Sapphire) Li
:::


::::

## Weekly schedule

* [Pre-recorded videos](https://www.youtube.com/watch?v=uwKiT1o1TkI&list=PLyCNZ_xXGzpm7W9jLqbIyBAiSO5jDwJeE): approximately 1 hour per week [[Slides](https://github.com/robjhyndman/fpp3_slides)]
* Tutorials: 1 hour per week
* Online lecture: 12noon Mondays
* Workshop: 1pm Tuesdays, [Lecture Theatre S3, 16 Rainforest Walk](https://maps.app.goo.gl/4AmDLWkY1yYZviFz8).


```{r}
#| label: schedule2
#| message: false
#| warning: false
#| echo: false
#| output: asis
schedule |>
  transmute(
    Show = !is.na(Week), #& (Week <= week | Week <= 1),
    Topic = if_else(!Show, Topic, glue::glue("[{Topic}](./week{Week}/index.html)")),
    Chapter = if_else(is.na(Week), Chapter, glue::glue("[{Chapter}]({Chapter_URL})")),
    Assignments = if_else(is.na(Assignment), Assignment, glue::glue("[{Assignment}]({File})")),
    Quizzes =  if_else(is.na(Quiz), Quiz, glue::glue("[{Quiz}]({QMoodle})")),
    Week = format(Date, "%d %b")
  ) |>
  select(-Show) |>
  select(Week, everything()) |>
  knitr::kable(format = "markdown")
```

## Assessments

* [Forecasting competition](assignments/competition.qmd): 2%
* Weekly quizzes: 8%
* [Assignment 1](assignments/A1.qmd): 6%
* [Assignment 2](assignments/A2.qmd): 6%
* [Assignment 3](assignments/A3.qmd): 6%
* [Retail project](assignments/Project.qmd): 12%
* Final exam: 60%

## R package installation

Here is the code to install the R packages we will be using in this unit.

```r
install.packages(c("tidyverse","fpp3", "GGally"), dependencies = TRUE)
```