sample_r_code