Create R_addition.R