added R scripts and the resulting pictures