uploaded the R files for the plots