added R markdown file and made some changes