data & lesson1.R scripts updated