finishing creation of first R script for generating graphics and data used by graphics