playing with some sample R code, learning the basics