Initial R script craetion for plot 1