Create r_funcs.r