如何使用 sapply() 在 R 中构造这个矩阵差分算子答案

【问题标题】：How use sapply() to construct this matrix difference operator in R如何使用 sapply() 在 R 中构造这个矩阵差分算子
【发布时间】：2020-10-11 15:29:18
【问题描述】：

How to use apply function in R to construct a matrix difference operator just like matrix B? I created a 3x4 matrix B0 with all elements 0 and tried to change the diagonal elements, but it does not work. My code is apply(B0, function(x) diag(x)=1), and how could I correct it?

【问题讨论】：

请澄清您的问题。 “看起来像矩阵B”是什么意思。什么是B？ B0与它有什么关系？请提供创建输入和输出的 R 代码，并说明如何从输入到输出。此外，主题指的是sapply，问题的主体指的是apply。
另外，请删除问题文本块中的超链接。

标签： r matrix sapply

【解决方案1】：

如果问题是如何生成当您单击问题中的文本时出现的图像中显示的矩阵，那么这里有几种方法：

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

【讨论】：

您创建了正确的矩阵，但您能否使用 sapply() 函数来构建此矩阵？