R code profiling