用一个需要四个向量的函数在R中迭代

# 定义一个需要四个向量的函数
my_function <- function(a, b, c, d) {
  result <- a + b - c * d
  return(result)
}

# 定义四个向量
vector_a <- c(1, 2, 3, 4)
vector_b <- c(5, 6, 7, 8)
vector_c <- c(9, 10, 11, 12)
vector_d <- c(13, 14, 15, 16)

# 创建一个空向量来存储结果
results <- vector()

# 使用循环迭代计算函数结果
for (i in 1:length(vector_a)) {
  result <- my_function(vector_a[i], vector_b[i], vector_c[i], vector_d[i])
  results <- c(results, result)
}

# 打印结果
print(results)