R scale

R scale for sum values