Minor changes to example1.R