Update 1-6 More Vectors- Real Data.R