update R markdown file and add html file

update R markdown file and add html file