week4.R