First commit

Add figures, R scripts and R markdown file.