R语言生成斐波那契数列：循环和递归方法

在R语言中生成斐波那契数列，您可以使用循环或递归的方式。以下是两种常见的方法：

1. 使用循环生成斐波那契数列：

fib <- function(n) {
  sequence <- c(0, 1)
  if (n <= 2) {
    return(sequence[1:n])
  } else {
    for (i in 3:n) {
      next_number <- sequence[i - 1] + sequence[i - 2]
      sequence <- c(sequence, next_number)
    }
    return(sequence)
  }
}

# 生成前10个斐波那契数列
n <- 10
fib_sequence <- fib(n)
print(fib_sequence)

2. 使用递归生成斐波那契数列：

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

# 生成前10个斐波那契数列
n <- 10
fib_sequence <- sapply(0:n, fib)
print(fib_sequence)

无论使用哪种方法，上述代码将生成前10个斐波那契数列并打印输出结果。您可以根据需要修改代码来生成更长的数列。