Rの自作関数をコンパイルして高速化する

http://kingqwert.hatenablog.com/entry/20120806/p1

> library(compiler)
> mysum <- function(x){
+   s <- 0
+   for(y in 1:x){
+     s <- s + y
+   }
+   s
+ }
#1000万回ループ
> system.time(mysum(10000000))
   user  system elapsed 
  5.842   0.035   5.924
> mysum.compiled <- cmpfun(mysum)
> system.time(mysum.compiled(10000000))
   user  system elapsed 
  0.682   0.008   0.695 

１０倍はやくなった？