From 2b0f90c03973c3b7332cf2bc96b8fc5e9587a25f Mon Sep 17 00:00:00 2001
From: Rob Hyndman <robjhyndman@gmail.com>
Date: Tue, 21 May 2024 15:44:21 +1000
Subject: [PATCH] Fixed spacing issues in week 2 and 3 slides

---
 week2/slides.qmd | 7 ++-----
 week3/slides.qmd | 4 ++++
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/week2/slides.qmd b/week2/slides.qmd
index c1f05a3..15281bc 100644
--- a/week2/slides.qmd
+++ b/week2/slides.qmd
@@ -57,7 +57,6 @@ to produce sensible forecasts. They want me to fix it.
 \placefig{10.2}{1.4}{width=5.8cm}{tableware2}
 
 ## CASE STUDY 1: Paperware company
-\vspace*{0.2cm}
 
 ### Methods currently used
 
@@ -151,10 +150,8 @@ Not the real data! Or is it?
 ### Additional information
 
   * They can provide a large amount of data on previous routes.
-  * Traffic is affected by school holidays, special events such as
-the Grand Prix, advertising campaigns, competition behaviour, etc.
-  * They have a highly capable team of people who are able to do
-most of the computing.
+  * Traffic is affected by school holidays, special events such as the Grand Prix, advertising campaigns, competition behaviour, etc.
+  * They have a highly capable team of people who are able to do most of the computing.
 
 ## Your turn
 
diff --git a/week3/slides.qmd b/week3/slides.qmd
index f8c5bdb..de78d97 100644
--- a/week3/slides.qmd
+++ b/week3/slides.qmd
@@ -114,6 +114,7 @@ employed |>
 ## The ABS stuff-up
 
 ```{r abs4}
+#| fig-height: 2.8
 employed |>
   filter(Year >= 2005) |>
   autoplot(Employed) +
@@ -123,6 +124,7 @@ employed |>
 ## The ABS stuff-up
 
 ```{r abs5}
+#| fig-height: 2.8
 employed |>
   filter(Year >= 2005) |>
   gg_season(Employed, labels = "right") +
@@ -145,6 +147,7 @@ employed |>
 ## The ABS stuff-up
 
 ```{r abs7}
+#| fig-height: 2.8
 dcmp <- employed |>
   filter(Year >= 2005) |>
   model(stl = STL(Employed ~ season(window = 11), robust = TRUE))
@@ -154,6 +157,7 @@ components(dcmp) |> autoplot()
 ## The ABS stuff-up
 
 ```{r abs8}
+#| fig-height: 2.8
 components(dcmp) |>
   filter(year(Time) == 2013) |>
   gg_season(season_year) +