R markdown of task #2