Create R_Sample_code.r