First commit with the code Hector shared with me

10_EXPORTS/scale_values.R

@@ -0,0 +1,13 @@
+# scalling 
+
+  # x = vector of values
+
+'# 04 / 02 /2026'
+
+scale_values <- function(x) {
+   (x - min(x)) / (max(x) - min(x))
+}
+
+# scale_values <- function(x) {
+#   (x - min(x)) / (max(x) - min(x)) * (0.999 - 0.001) + 0.001
+# }