R Programming week 3