Update r_funcs.r