add Rscripts and png