testing out speed of R "compiler" package with Vectorize

testCompiler.R

library(compiler)

inFun <- Vectorize(function(x,y,z){
  return((x^2)+y*z)
},SIMPLIFY = FALSE)
inFun1 <- cmpfun(Vectorize(function(x,y,z){
  return((x^2)+y*z)
},SIMPLIFY = FALSE),options = list(optimize=1))
inFun2 <- cmpfun(Vectorize(function(x,y,z){
  return((x^2)+y*z)
},SIMPLIFY = FALSE),options = list(optimize=3))

library(microbenchmark)

microbenchmark(
  inFun(x=1:5000,y=2,z=3),
  inFun1(x=1:5000,y=2,z=3),
  inFun2(x=1:5000,y=2,z=3),times = 500
)