R prog - week 3