R中有没有函数可以计算下一个单元格值之间的差值？

# 创建一个向量
vec <- c(1, 3, 5, 7, 9)

# 计算相邻元素之间的差值
diff_vec <- diff(vec)

# 输出差值向量
print(diff_vec)

[1] 2 2 2 2

# 创建一个矩阵
mat <- matrix(c(1, 2, 3, 4, 5, 6), nrow = 2)

# 计算矩阵列的相邻单元格值之间的差值
diff_mat <- apply(mat, 2, diff)

# 输出差值矩阵
print(diff_mat)

     [,1] [,2]
[1,]    1    1
[2,]    1    1