Where I put some R code