Update r_2.R