Create Example2.R