如何使用sapply（）在R中构造此矩阵差分运算符

如果问题是如何生成单击问题文本时出现的图像中所示的矩阵，则有几种方法：

diff(diag(4))
##      [,1] [,2] [,3] [,4]
## [1,]   -1    1    0    0
## [2,]    0   -1    1    0
## [3,]    0    0   -1    1

apply(diag(4), 1, diff)
##      [,1] [,2] [,3] [,4]
## [1,]   -1    1    0    0
## [2,]    0   -1    1    0
## [3,]    0    0   -1    1

sapply(as.data.frame(diag(4)), diff)
##      V1 V2 V3 V4
## [1,] -1  1  0  0
## [2,]  0 -1  1  0
## [3,]  0  0 -1  1

sapply(1:4, function(i) diff(diag(4)[, i]))
##      [,1] [,2] [,3] [,4]
## [1,]   -1    1    0    0
## [2,]    0   -1    1    0
## [3,]    0    0   -1    1

---

请澄清你的问题。“看起来像矩阵B”是什么意思。什么是B？B0和它有什么关系？请提供创建输入和输出的R代码，并解释如何从输入到输出。此外，主题引用了

sapply

，问题主体引用了

apply

。此外，请删除问题文本块中的超链接。您创建了正确的矩阵，但是否可以使用sapply（）函数构建此矩阵？