r-statistics-fanの日記

R3.4.0が出たと聞いた。 JITバイトコンパイラになり、loopが高速になるらしい。 適当にフィボナッチ数を計算する関数を作って試してみる。 fibonacci <- function(n){ if(n == 1) 1 else if(n == 2) 2 else (fibonacci(n-2) + fibonacci(n-1)) } fibonacci2 <- function(n){ f1 <- 1 f2 <- 2 f3 <- 1 if(n >= 3){ for(i in…