Update example.R