# 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
# }