Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/72.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 将第二个和第三个数组维度的对角线设置为0_R - Fatal编程技术网
Fatal编程技术网
  • r/
  • R 将第二个和第三个数组维度的对角线设置为0

R 将第二个和第三个数组维度的对角线设置为0

r

R 将第二个和第三个数组维度的对角线设置为0,r,R,我希望能够将矩阵中第二维度和第三维度的对角线设置为零，如下所示： array<-array(1,dim=c(3,3,3)) array[,1,1]<-0 array[,2,2]<-0 array[,3,3]<-0 array从技术上讲，这也是一个循环： sapply(1:3,function(i) a[,i,i] <<- 0) sapply（1:3，函数（i）a[，i，i]另一种解决方案（如果行数少于is，可能会更快）： 应用（a，1，函数（x）诊断（x）

我希望能够将矩阵中第二维度和第三维度的对角线设置为零，如下所示：

array<-array(1,dim=c(3,3,3))
array[,1,1]<-0
array[,2,2]<-0
array[,3,3]<-0

array从技术上讲，这也是一个循环：


sapply(1:3,function(i) a[,i,i] <<- 0)



sapply（1:3，函数（i）a[，i，i]另一种解决方案（如果行数少于
i
s，可能会更快）：


应用（a，1，函数（x）诊断（x）可能使用


apply(a, 1, function(x) diag(x) <- 0)