Create R_code