added R scripts and png images