add boxplots

schedule/index.qmd

@@ -28,14 +28,14 @@ knitr::kable(tib)
 
 ## Lecture slides
 
-* [Bootstrap](slides/bootstrap.qmd)
-* [Cluster computing](slides/cluster-computing.qmd)
+* [Giving presentations](slides/presentations.qmd)
 * [Git and GitHub](slides/git.qmd)
-* [Skills for graduate students](slides/grad-school.qmd)
 * [Tips for organization](slides/organization.qmd)
-* [Giving presentations](slides/presentations.qmd)
-* [Time series](slides/time-series.qmd)
 * [Unit tests](slides/unit-tests.qmd)
+* [Bootstrap](slides/bootstrap.qmd)
+* [Time series](slides/time-series.qmd)
+* [Cluster computing](slides/cluster-computing.qmd)
+* [Skills for graduate students](slides/grad-school.qmd)
 
 ## Handouts
 

schedule/slides/presentations.qmd

@@ -360,9 +360,10 @@ g <- ggplot(tib, aes(method, mean, colour = method)) +
   geom_point() +
   scale_colour_viridis_d(option = "F", begin = .2, end = .8) +
   scale_y_continuous(labels = scales::percent, expand = expansion(0)) +
-  coord_cartesian(ylim = c(0, .3)) +
+  coord_cartesian(ylim = c(0, .4)) +
   ylab("Error") +
-  xlab("Method")
+  theme(legend.position = "none") +
+  xlab("")
 g
 ```
 
@@ -375,6 +376,26 @@ Ran 50 simulations.
 g + geom_linerange(aes(ymax = mean + sd, ymin = pmax(mean - sd, 0)))
 ```
 
+## Example: Made up simulation results
+
+Ran 50 simulations.
+
+```{r}
+#| echo: false
+tib <- tib |>
+  rowwise() |>
+  mutate(samples = list(rnorm(50, mean, sd))) |>
+  unnest(samples)
+ggplot(tib, aes(method, samples, fill = method)) +
+  geom_boxplot(alpha = .66, notch = TRUE) +
+  scale_fill_viridis_d(option = "F", begin = .2, end = .8) +
+  scale_y_continuous(labels = scales::percent, expand = expansion(0)) +
+  coord_cartesian(ylim = c(0, .4)) +
+  ylab("Error") +
+  theme(legend.position = "none") +
+  xlab("")
+```
+
 
 ## Things you should do
 

schedule/slides/themer.scss

@@ -99,11 +99,6 @@ dt {
   font-size: 0.9em;
 }
 
-.slide-title {
-  font-size: 2em;
-  color: $primary;
-}
-
 
 .center-align {
   text-align: center;