r - Rcpp を使用したフィボナッチ数列からの予期しない結果

Question

使い始めたばかりRcppなので、簡単な手順などを見逃していたらごめんなさい...私はこれを試しました?sourceCpp

library(Rcpp)
sourceCpp(code='
  #include <Rcpp.h>

  // [[Rcpp::export]]
  int fibonacci(const int x) {
    if (x == 0) return(0);
    if (x == 1) return(1);
    return (fibonacci(x - 1)) + fibonacci(x - 2);
  }'
)

すべてfibonacci(46)問題ありませんが、次のようになります。

> fibonacci(47)
[1] -1323752223
> fibonacci(48)
[1] 512559680
> fibonacci(49)
[1] -811192543
> fibonacci(50)
[1] -298632863

このページによると、上記は次のようになります。

47 : 2971215073
48 : 4807526976
49 : 7778742049
50 : 12586269025

同じ結果が得られますか?