my first repo of R code