Testing R markdown for Qn 1