Add crps learning slides (univariate, old)

25_07_phd_defense/assets/01_common.R

@@ -0,0 +1,31 @@
+text_size <- 16
+width <- 12
+height <- 6
+
+# col_lightgray <- "#e7e7e7"
+# col_blue <- "#F24159"
+# col_b_smooth <- "#F7CE14"
+# col_p_smooth <- "#58A64A"
+# col_pointwise <- "#772395"
+# col_b_constant <- "#BF236D"
+# col_p_constant <- "#F6912E"
+# col_optimum <- "#666666"
+
+# https://www.schemecolor.com/retro-rainbow-pastels.php
+col_lightgray <- "#e7e7e7"
+col_blue <- "#F24159"
+col_b_smooth <- "#5391AE"
+col_p_smooth <- "#85B464"
+col_pointwise <- "#E2D269"
+col_b_constant <- "#7A4E8A"
+col_p_constant <- "#BC677B"
+col_optimum <- "#666666"
+col_auto <- "#EA915E"
+
+T_selection <- c(32, 128, 512)
+
+# Lambda grid
+lamgrid <- c(-Inf, 2^(-15:25))
+
+# Gamma grid
+gammagrid <- sort(1 - sqrt(seq(0, 0.99, .05)))