Added R scripts and png images