added normalization functions

Tutorial_Scripts/functions/normalization.R

+some_numbers <- c(200, 300, 400, 600, 1000)
+
+norm_min_max <- function(v){
+  return((v-min(v))
+    /(max(v)-min(v)))
+}
+norm_min_max(some_numbers)
+
+norm_z_score_sd <- function(v){
+ return((v-mean(v)) / sd(v))
+}
+norm_z_score_sd(some_numbers)
+
+norm_z_score_mad <- function(v){
+  return(
+    (v-mean(v)) / (sum(abs(v-mean(v)))/length(v)))
+}
+norm_z_score_mad(some_numbers)
+
+norm_dec <- function(v, j){
+  return(v/(10^j))
+}
+norm_dec(some_numbers, 3)