Complete the R markdown file

Complete the R markdown file