my R codes