Create demo1.R