R语言自定义函数实现等差数列前n项求和

可以使用以下R语言代码来自定义一个函数来实现等差数列的前n项求和：

sum_of_arithmetic_sequence <- function(a, d, n) {
  # a为首项，d为公差，n为项数
  sum <- (n/2) * (2*a + (n-1)*d)  # 等差数列的求和公式
  return(sum)
}

# 示例调用
a <- 1  # 首项
d <- 2  # 公差
n <- 5  # 项数

result <- sum_of_arithmetic_sequence(a, d, n)
print(result)

在上面的代码中，我们定义了一个名为'sum_of_arithmetic_sequence'的函数，该函数接受三个参数：首项a，公差d和项数n。函数内部使用等差数列的求和公式计算出等差数列的前n项的和，并返回结果。

在示例调用中，我们传递了首项为1，公差为2，项数为5的参数，并将结果打印输出。