在R中使用函数而不是for循环:迭代地减去前面的行，但有异常

# 创建一个示例矩阵
matrix_data <- matrix(1:9, nrow = 3, ncol = 3)

# 定义一个函数，用于迭代地减去前面的行
subtract_rows <- function(row, previous_rows) {
  if (length(previous_rows) > 0) {
    row - previous_rows
  } else {
    row
  }
}

# 使用apply()函数按行应用subtract_rows函数
result <- apply(matrix_data, 1, subtract_rows, previous_rows = NULL)

# 打印结果
print(result)

# 安装并加载purrr包
install.packages("purrr")
library(purrr)

# 创建一个示例矩阵
matrix_data <- matrix(1:9, nrow = 3, ncol = 3)

# 定义一个函数，用于迭代地减去前面的行
subtract_rows <- function(row, previous_rows) {
  if (length(previous_rows) > 0) {
    row - previous_rows
  } else {
    row
  }
}

# 使用map()函数按行应用subtract_rows函数
result <- map(matrix_data, subtract_rows, previous_rows = NULL)

# 打印结果
print(result)