added R scripts and png plots