22October

updated R code to clean