adding Plot1.R