R version 2.13.1 (2011-07-08) Copyright (C) 2011 The R Foundation for Statistical Computing ISBN 3-900051-07-0 Platform: i386-pc-mingw32/i386 (32-bit) Rは、自由なソフトウェアであり、「完全に無保証」です。 一定の条件に従えば、自由にこれを再配布することができます。 配布条件の詳細に関しては、'license()'あるいは'licence()'と入力してください。 Rは多くの貢献者による共同プロジェクトです。 詳しくは'contributors()'と入力してください。 また、RやRのパッケージを出版物で引用する際の形式については 'citation()'と入力してください。 'demo()'と入力すればデモをみることができます。 'help()'とすればオンラインヘルプが出ます。 'help.start()'でHTMLブラウザによるヘルプがみられます。 'q()'と入力すればRを終了します。 > # checking the effects of jit for long loop > > library(jit) > > million.loop <- function(mode) { + a<-rep(0,1000000) + a[1]<-1 + a[2]<-1 + jit(mode) + for (i in 3:1000000) { a[i] <- (a[i-1]+a[i-2])/a[i-1] } + jit(0) + return(a[1000000]) + } > > system.time(print(million.loop(0))) [1] 1.69035 ユーザ システム 経過 13.25 0.01 13.28 > system.time(print(million.loop(1))) [1] 1.69035 ユーザ システム 経過 10.25 0.00 10.30 > system.time(print(million.loop(2))) [1] 1.69035 ユーザ システム 経過 12.69 0.00 12.70 > > library(compiler) > cml <- cmpfun(million.loop) > > system.time(print(cml(0))) [1] 1.69035 ユーザ システム 経過 3.16 0.03 3.19 > system.time(print(cml(1))) [1] 1.69035 ユーザ システム 経過 3.22 0.00 3.22 > system.time(print(cml(2))) [1] 1.69035 ユーザ システム 経過 3.11 0.02 3.12 >