R scripts for plots initial
R png for plots initial
output for png file added