在R中将大数组的对角线设置为零

Question

由于DCC-GARCH，我有一个动态相关网络。我需要为每个数组将对角线转换为零。它是每日数据，所以我每天都有相关数组。当我输入

  

打印（更正）

这个数组看起来像这一天（我只能显示一个页面只有一天适合页面，但我有相关数组1000天）

如何一次将对角线转换为零？

Answer 1

试试这个：

Corr <- array( apply( Corr, 3, function(x) { 
          x[ row(x) == col(x) ] <-0; x} ), dim(Corr) )

apply函数可以处理任何维度，这将为内部匿名函数提供矩阵“切片”，并将其对角线设置为零。