R prog - quiz 2