Added change to R script - mean normalization (partial)