Update CPP.R

added zscore