Update r_example.R