Create week4.R