R markdown for task 1 and 3