adding new array normalization R script