add R script and png