BerriJ/PHD-Presentation
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update powerfoc results table

Browse Source
This commit is contained in:
Jonathan Berrisch
2025-05-19 23:37:41 +02:00
parent 751337eb5c
commit 8a0cf4564b
1 changed files with 53 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
25_07_phd_defense/index.qmd
View File

@@ -1838,15 +1838,13 @@ knitr::include_graphics("assets/mcrps_learning/smooth_best.svg")
:::: ::::
## Results Orig ## Results
```{r, fig.align="center", echo=FALSE, out.width = "400"} :::: {.columns}
knitr::include_graphics("assets/mcrps_learning/tab_performance_sa.svg")
```
## Results HTML ::: {.column width="65%"}
```{r, fig.align="center", echo=FALSE} ```{r}
load("assets/mcrps_learning/naive_table_df.rds") load("assets/mcrps_learning/naive_table_df.rds")
table_naive <- naive_table_df %>% table_naive <- naive_table_df %>%
@@ -1889,28 +1887,28 @@ for (j in 1:3) {
for (i in seq_len(nrow(performance_loss_tibble))) { for (i in seq_len(nrow(performance_loss_tibble))) {
if (loss_and_dm[i, j, "p.val"] < 0.001) { if (loss_and_dm[i, j, "p.val"] < 0.001) {
performance_loss_tibble[i, 2 + j] <- paste0( performance_loss_tibble[i, 2 + j] <- paste0(
"&nbsp;&nbsp;&nbsp;&nbsp;", "&nbsp;&nbsp;",
performance_loss_tibble[i, 2 + j], performance_loss_tibble[i, 2 + j],
"\\(^{***}\\)" "\\(^{***}\\)"
) )
} else if (loss_and_dm[i, j, "p.val"] < 0.01) { } else if (loss_and_dm[i, j, "p.val"] < 0.01) {
performance_loss_tibble[i, 2 + j] <- paste0( performance_loss_tibble[i, 2 + j] <- paste0(
"&nbsp;&nbsp;&nbsp;&nbsp;", "&nbsp;&nbsp;",
performance_loss_tibble[i, 2 + j], "\\(^{**}\\)" performance_loss_tibble[i, 2 + j], "\\(^{**}\\)"
) )
} else if (loss_and_dm[i, j, "p.val"] < 0.05) { } else if (loss_and_dm[i, j, "p.val"] < 0.05) {
performance_loss_tibble[i, 2 + j] <- paste0( performance_loss_tibble[i, 2 + j] <- paste0(
"&nbsp;&nbsp;&nbsp;&nbsp;", "&nbsp;&nbsp;",
performance_loss_tibble[i, 2 + j], "\\(^{*}\\)" performance_loss_tibble[i, 2 + j], "\\(^{*}\\)"
) )
} else if (loss_and_dm[i, j, "p.val"] < 0.1) { } else if (loss_and_dm[i, j, "p.val"] < 0.1) {
performance_loss_tibble[i, 2 + j] <- paste0( performance_loss_tibble[i, 2 + j] <- paste0(
"&nbsp;&nbsp;&nbsp;&nbsp;", "&nbsp;&nbsp;",
performance_loss_tibble[i, 2 + j], "\\({.}\\)" performance_loss_tibble[i, 2 + j], "\\({.}\\)"
) )
} else { } else {
performance_loss_tibble[i, 2 + j] <- paste0( performance_loss_tibble[i, 2 + j] <- paste0(
"&nbsp;&nbsp;&nbsp;&nbsp;", "&nbsp;&nbsp;",
performance_loss_tibble[i, 2 + j], "&emsp;" performance_loss_tibble[i, 2 + j], "&emsp;"
) )
} }
@@ -1919,12 +1917,13 @@ for (j in 1:3) {
table_performance <- performance_loss_tibble %>% table_performance <- performance_loss_tibble %>%
kbl( kbl(
padding=-1L,
col.names = c( col.names = c(
'Description', 'Description',
'Parameter Tuning', 'Parameter Tuning',
'&emsp;&emsp;&emsp;BOA', '&emsp;&emsp;BOA',
'&emsp;&emsp;&nbsp;ML-Poly', '&emsp;&nbsp;ML-Poly',
'&emsp;&emsp;&emsp;EWA' '&emsp;&emsp;EWA'
), ),
bootstrap_options = "condensed", bootstrap_options = "condensed",
# Dont replace any string, dataframe has to be valid latex code ... # Dont replace any string, dataframe has to be valid latex code ...
@@ -1953,27 +1952,50 @@ for (i in 3:ncol(performance_loss_tibble)) {
bold = loss == min(loss), bold = loss == min(loss),
) )
} }
col_note_html <- '<span style="background-color: #66BA6A; padding: 2px 6px;">&lt;&nbsp;-5</span> <span style="background-color: #7CC168; padding: 2px 6px;">-4</span> <span style="background-color: #91C866; padding: 2px 6px;">-3</span> <span style="background-color: #B0D363; padding: 2px 6px;">-2</span> <span style="background-color: #D8E05E; padding: 2px 6px;">-1</span> <span style="background-color: #FFED58; padding: 2px 6px;">0</span> <span style="background-color: #FFD145; padding: 2px 6px;">1</span> <span style="background-color: #FFB531; padding: 2px 6px;">2</span> <span style="background-color: #FC9733; padding: 2px 6px;">3</span> <span style="background-color: #F67744; padding: 2px 6px;">4</span> <span style="background-color: #EE5250; padding: 2px 6px;">&gt;&nbsp;5</span>'
signif <- "<span>.</span> p &lt; 0.1; <span>*</span> p &lt; 0.05; <span>**</span> p &lt; 0.01; <span>***</span> p &lt; 0.001;"
table_performance %>% table_performance %>%
footnote( # footnote(
general = c( # general = c(
"Coloring w.r.t. test statistic: ", # "Coloring w.r.t. test statistic: ",
col_note_html, # col_note_html,
signif # signif
), # ),
general_title = "", # general_title = "",
fixed_small_size = TRUE, # fixed_small_size = TRUE,
escape = FALSE # escape = FALSE
) %>% # ) %>%
kable_styling(font_size = 16) |> kable_styling(font_size = 16)
row_spec(0, extra_css = "text-align: center")
``` ```
```{=html}
<div style="font-size: 0.7em; margin-top: 0.5em;">
<span style="padding: 2px 6px;">Coloring w.r.t. test statistic: </span>
<span style="background-color: #66BA6A; padding: 2px 6px;">&lt;-5</span>
<span style="background-color: #7CC168; padding: 2px 6px;">-4</span>
<span style="background-color: #91C866; padding: 2px 6px;">-3</span>
<span style="background-color: #B0D363; padding: 2px 6px;">-2</span>
<span style="background-color: #D8E05E; padding: 2px 6px;">-1</span>
<span style="background-color: #FFED58; padding: 2px 6px;">0</span>
<span style="background-color: #FFD145; padding: 2px 6px;">1</span>
<span style="background-color: #FFB531; padding: 2px 6px;">2</span>
<span style="background-color: #FC9733; padding: 2px 6px;">3</span>
<span style="background-color: #F67744; padding: 2px 6px;">4</span>
<span style="background-color: #EE5250; padding: 2px 6px;">&gt;5</span>
</div>
<div style="font-size: 0.7em;">
<span style="padding: 2px 6px;">Significance denoted by: </span><span>.</span> p &lt; 0.1; <span>*</span> p &lt; 0.05; <span>**</span> p &lt; 0.01; <span>***</span> p &lt; 0.001;
</div>
```
:::
::: {.column width = "35%"}
Foo
:::
::::
## Results ## Results