Create example1.R