all figures have been uploaded and named it
Separated R code files have been uploaded