This function normalize the data by absolute value
Examples
set.seed(20240412)
data1 <- gen_gaussian(n= 500, p = 4)
#> ✔ Data generation completed successfully! 🎉
scale_data(data = data1)
#> Error in scale_data(data = data1): could not find function "scale_data"