fork download
copy 
  1. R> require(rpart)
  2. R> fo <- function() for(i in 1:500){rpart(Kyphosis ~ Age + Number + Start, data=kyphosis)}
  3. R> system.time(fo())
  4. # user  system elapsed 
  5. # 1.86    0.00    1.93 
  6. R> require(compiler)
  7. # Loading required package: compiler
  8. R> enableJIT(3)
  9. R> system.time(fo())
  10. #  user  system elapsed 
  11. # 28.14    0.00   28.14 
  12. R> cfo <- cmpfun(fo)
  13. R> system.time(cfo())
  14. # user  system elapsed 
  15. # 27.85   0.00   28.02
  16. R> enableJIT(0)
  17. R> system.time(cfo())
  18. # user  system elapsed 
  19. # 1.71    0.00    1.70
Not running #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/Nu8IZ
language:
R (R 3.5.2)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!