R programming assignment for week_02.