my R-program code