diff --git a/25_07_phd_defense/custom.scss b/25_07_phd_defense/custom.scss index 9a42a78..0eea68b 100644 --- a/25_07_phd_defense/custom.scss +++ b/25_07_phd_defense/custom.scss @@ -1,11 +1,30 @@ /*-- scss:defaults --*/ -$body-bg: #ffffff; -$body-color: #7a6f69; -$link-color: #005088; -$selection-color: #00b0dc; +// $body-bg: #ffffff; +// $body-color: #7a6f69; +// $link-color: #005088; +// $selection-color: #00b0dc; -$presentation-heading-color: $selection-color; -$tabset-border-color: #bbb3b0; +// $presentation-heading-color: $selection-color; +// $tabset-border-color: #bbb3b0; -/*-- scss:rules --*/ \ No newline at end of file +/*-- scss:rules --*/ +.slide-number, +.reveal.has-logo .slide-number { + bottom: 14px !important; + left: 50px !important; + top: unset !important; + color: #777777 !important; +} + +.sup-zero-width { + display: inline-block; + vertical-align: super; + font-size: smaller; + width: 0px; +} + +.zero-width { + display: inline-block; + width: 0px; +} \ No newline at end of file diff --git a/25_07_phd_defense/index.qmd b/25_07_phd_defense/index.qmd index 4440b55..2fdd145 100644 --- a/25_07_phd_defense/index.qmd +++ b/25_07_phd_defense/index.qmd @@ -1,21 +1,22 @@ --- title: "Data Science Methods for Forecasting in Energy and Economics" -date: 2025-07-10 +date: 30 June 2025 author: - name: Jonathan Berrisch affiliations: - ref: hemf affiliations: - id: hemf - name: University of Duisburg-Essen, House of Energy Markets and Finance + name: University of Duisburg-Essen, House of Energy, Climate and Finance format: revealjs: embed-resources: true footer: "" logo: assets/logos_combined.png - theme: [default, clean.scss] + theme: [default, sydney.scss, custom.scss] smaller: true fig-format: svg + slide-number: true execute: daemon: false highlight-style: github @@ -109,8 +110,6 @@ xaringanExtra::use_freezeframe(responsive = TRUE) # Motivation -name: motivation - ## Motivation :::: {.columns} @@ -1234,14 +1233,14 @@ for (i.p in 1:MO) { table_col[, i.p] <- rgb(fred, fgreen, fblue, maxColorValue = 1) } # i.p -table_out <- kbl(table, align = rep("c", ncol(table))) +table_out <- kbl(table, align = rep("c", ncol(table)), bootstrap_options = c("condensed")) %>% + kable_paper(full_width = TRUE) for (j in 1:ncol(table)) { table_out <- table_out %>% column_spec(j, background = table_col[, j]) } -table_out %>% - kable_material() +table_out ``` ```{r, echo = FALSE, fig.width=7, fig.height=5.5, fig.align='center', cache = FALSE, results='asis'} @@ -1272,7 +1271,8 @@ for (i.p in 1:MO) { table_col2[, i.p] <- rgb(fred, fgreen, fblue, maxColorValue = 1) } # i.p -table_out2 <- kableExtra::kbl(table2, align = rep("c", ncol(table2))) +table_out2 <- kableExtra::kbl(table2, align = rep("c", ncol(table2)), bootstrap_options = c("condensed")) %>% + kable_paper(full_width = TRUE) for (j in 1:ncol(table2)) { table_out2 <- table_out2 %>% @@ -1282,7 +1282,6 @@ for (j in 1:ncol(table2)) { } table_out2 %>% - kable_material() %>% column_spec(1, bold = T) ``` @@ -1781,7 +1780,7 @@ Computation Time: ~30 Minutes :::: -# Special Cases +## Special Cases :::: {.columns} @@ -1842,7 +1841,7 @@ knitr::include_graphics("assets/mcrps_learning/smooth_best.svg") :::: {.columns} -::: {.column width="65%"} +::: {.column width="55%"} ```{r} load("assets/mcrps_learning/naive_table_df.rds") @@ -1856,10 +1855,11 @@ table_naive <- naive_table_df %>% bootstrap_options = "condensed", escape = FALSE, format = "html", - booktabs = TRUE, + booktabs = FALSE, align = c("c", rep("c", ncol(naive_table_df) - 1)) ) %>% kable_paper(full_width = TRUE) %>% + row_spec(0:1, color = cols[10, "grey"]) %>% kable_styling(font_size = 16) @@ -1887,29 +1887,27 @@ for (j in 1:3) { for (i in seq_len(nrow(performance_loss_tibble))) { if (loss_and_dm[i, j, "p.val"] < 0.001) { performance_loss_tibble[i, 2 + j] <- paste0( - "  ", performance_loss_tibble[i, 2 + j], - "\\(^{***}\\)" + '***' ) } else if (loss_and_dm[i, j, "p.val"] < 0.01) { performance_loss_tibble[i, 2 + j] <- paste0( - "  ", - performance_loss_tibble[i, 2 + j], "\\(^{**}\\)" + performance_loss_tibble[i, 2 + j], + '**' ) } else if (loss_and_dm[i, j, "p.val"] < 0.05) { performance_loss_tibble[i, 2 + j] <- paste0( - "  ", - performance_loss_tibble[i, 2 + j], "\\(^{*}\\)" + performance_loss_tibble[i, 2 + j], + '*' ) } else if (loss_and_dm[i, j, "p.val"] < 0.1) { performance_loss_tibble[i, 2 + j] <- paste0( - "  ", - performance_loss_tibble[i, 2 + j], "\\({.}\\)" + performance_loss_tibble[i, 2 + j], + '.' ) } else { performance_loss_tibble[i, 2 + j] <- paste0( - "  ", - performance_loss_tibble[i, 2 + j], " " + performance_loss_tibble[i, 2 + j] ) } } @@ -1921,18 +1919,18 @@ table_performance <- performance_loss_tibble %>% col.names = c( 'Description', 'Parameter Tuning', - '  BOA', - '  ML-Poly', - '  EWA' + 'BOA', + 'ML-Poly', + 'EWA' ), bootstrap_options = "condensed", # Dont replace any string, dataframe has to be valid latex code ... escape = FALSE, format = "html", - align = c(rep("l", ncol(performance_loss_tibble))) + align = c("l", "l", rep("c", ncol(performance_loss_tibble)-2)) ) %>% kable_paper(full_width = TRUE) %>% - row_spec(1:nrow(performance_loss_tibble), monospace = TRUE) + row_spec(0:nrow(performance_loss_tibble), color = cols[10, "grey"]) # %% @@ -1953,21 +1951,11 @@ for (i in 3:ncol(performance_loss_tibble)) { ) } table_performance %>% - # footnote( - # general = c( - # "Coloring w.r.t. test statistic: ", - # col_note_html, - # signif - # ), - # general_title = "", - # fixed_small_size = TRUE, - # escape = FALSE - # ) %>% kable_styling(font_size = 16) ``` ```{=html} -
+
Coloring w.r.t. test statistic: <-5 -4 @@ -1989,7 +1977,7 @@ table_performance %>% ::: -::: {.column width = "35%"} +::: {.column width = "45%"} Foo @@ -2608,7 +2596,8 @@ table_energy <- energy %>% format = "html", align = c("l", rep("r", ncol(energy) - 1)) ) %>% - kable_paper(full_width = FALSE) + kable_paper(full_width = FALSE) %>% + row_spec(0:nrow(energy), color = cols[10, "grey"]) for (i in 2:ncol(energy)) { bold_cells <- rep(FALSE, times = nrow(energy)) @@ -2634,8 +2623,8 @@ for (i in 2:ncol(energy)) { table_energy %>% kable_styling( bootstrap_options = c("condensed"), - full_width = FALSE, - font_size = 16 + full_width = TRUE, + font_size = 14 ) ```