my R Codes