Update example_1.R