R code experiments