Data1.rmd