Initial example1.R