Sample R code for test purpose