Answer for assignment using R markdown