Create example4.R