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"}
knitr::include_graphics("assets/mcrps_learning/tab_performance_sa.svg")
```
:::: {.columns}
## Results HTML
::: {.column width="65%"}
```{r, fig.align="center", echo=FALSE}
```{r}
load("assets/mcrps_learning/naive_table_df.rds")
table_naive <- naive_table_df %>%
@@ -1889,28 +1887,28 @@ 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(
"&nbsp;&nbsp;&nbsp;&nbsp;",
"&nbsp;&nbsp;",
performance_loss_tibble[i, 2 + j],
"\\(^{***}\\)"
)
} else if (loss_and_dm[i, j, "p.val"] < 0.01) {
performance_loss_tibble[i, 2 + j] <- paste0(
"&nbsp;&nbsp;&nbsp;&nbsp;",
"&nbsp;&nbsp;",
performance_loss_tibble[i, 2 + j], "\\(^{**}\\)"
)
} else if (loss_and_dm[i, j, "p.val"] < 0.05) {
performance_loss_tibble[i, 2 + j] <- paste0(
"&nbsp;&nbsp;&nbsp;&nbsp;",
"&nbsp;&nbsp;",
performance_loss_tibble[i, 2 + j], "\\(^{*}\\)"
)
} else if (loss_and_dm[i, j, "p.val"] < 0.1) {
performance_loss_tibble[i, 2 + j] <- paste0(
"&nbsp;&nbsp;&nbsp;&nbsp;",
"&nbsp;&nbsp;",
performance_loss_tibble[i, 2 + j], "\\({.}\\)"
)
} else {
performance_loss_tibble[i, 2 + j] <- paste0(
"&nbsp;&nbsp;&nbsp;&nbsp;",
"&nbsp;&nbsp;",
performance_loss_tibble[i, 2 + j], "&emsp;"
)
}
@@ -1919,12 +1917,13 @@ for (j in 1:3) {
table_performance <- performance_loss_tibble %>%
kbl(
padding=-1L,
col.names = c(
'Description',
'Parameter Tuning',
'&emsp;&emsp;&emsp;BOA',
'&emsp;&emsp;&nbsp;ML-Poly',
'&emsp;&emsp;&emsp;EWA'
'&emsp;&emsp;BOA',
'&emsp;&nbsp;ML-Poly',
'&emsp;&emsp;EWA'
),
bootstrap_options = "condensed",
# 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),
)
}
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 %>%
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) |>
row_spec(0, extra_css = "text-align: center")
# 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}
<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