Test R code