Create example2.R