もちろん！ここでは、フィボナッチの継承を計算するためにRのコードを残します。

``
fibonacci <-function（n）{
  if（n <= 1）
    return（n）
  それ以外
    return（fibonacci（n-1） + fibonacci（n-2））
}

nterms <-as.integer（readline（ "必要な用語の数は？"））

if（nnterms <= 0）{
  print（ "肯定的な数字を紹介してください"）
} それ以外 {
  print（ "fibonacci継承："）
  for（i in 0：（nnterms-1））{
    印刷（fibonacci（i））
  }
}
猫（「Enterを押して去る：」）
読み込まれた行 （）
``
¡Por supuesto! Aquí te dejo el código en R para calcular la sucesión de Fibonacci:

```
fibonacci <- function(n) {
  if (n <= 1)
    return(n)
  else
    return(fibonacci(n-1) + fibonacci(n-2))
}

nterms <- as.integer(readline("¿Cuántos términos quieres? "))

if (nterms <= 0) {
  print("Por favor, introduce un número positivo")
} else {
  print("Sucesión de Fibonacci:")
  for (i in 0:(nterms-1)) {
    print(fibonacci(i))
  }
}
cat("Presione enter para salir: ")
readline()
```