Measuring function execution time in R Measuring function execution time in R r r