Create example5.R