Update First R script-Lect1.R