week3.R added