如何在R中斐波那契级数的偶数位相加？

fibonacci_sum <- function(n) {
  fib <- c(1, 1)  # 初始化斐波那契序列的前两个数
  sum_even <- 0  # 初始化偶数位之和为0
  
  for (i in 3:n) {
    fib[i] <- fib[i-1] + fib[i-2]  # 计算斐波那契序列的第i个数
    if (fib[i] %% 2 == 0) {
      sum_even <- sum_even + fib[i]  # 如果是偶数，则累加到偶数位之和
    }
  }
  
  return(sum_even)
}

n <- 10  # 计算斐波那契序列的前10个数的偶数位之和
result <- fibonacci_sum(n)
print(result)

fibonacci <- function(n) {
  if (n <= 2) {
    return(1)  # 前两个数为1
  } else {
    return(fibonacci(n-1) + fibonacci(n-2))  # 递归计算斐波那契序列的第n个数
  }
}

fibonacci_sum <- function(n) {
  sum_even <- 0  # 初始化偶数位之和为0
  
  for (i in 1:n) {
    fib <- fibonacci(i)  # 计算斐波那契序列的第i个数
    if (fib %% 2 == 0) {
      sum_even <- sum_even + fib  # 如果是偶数，则累加到偶数位之和
    }
  }
  
  return(sum_even)
}

n <- 10  # 计算斐波那契序列的前10个数的偶数位之和
result <- fibonacci_sum(n)
print(result)