sum_of_squares_r_function