added R code
Delete old files