Create r_example.R