Early R code for my practice and learning