索引R中4D数组中的元素子集

Question

我刚开始使用R。我正在使用

cglasso

我的一个项目的R包。The The The

coef.glasso

函数返回一个维数为13470的四维数组。

*

5

*

10

*

10 (对于我的数据集)。这个4D数组包含维度为13470的2D系数矩阵

*

5对应于网格10

*

10个超参数。我想在10的网格上迭代

*

10个超参数并提取13470个

*

5它们各自对应的二维系数矩阵。

在一行中

我的问题是如何提取维度为13470的2D矩阵

*

5来自维度为13470的4D矩阵

*

5

*

10

*

10？

Answer 1

假设我们有以下数组(替换您的实际维数)：

d <- 5:2
arr <- array(seq_len(prod(d)), dim = d)

我们可以将数组分成一维和二维的切片列表。

list <- split(arr, slice.index(arr, seq_along(d)[-c(1:2)]))

然后，我们可以重新设置维度，我们将在列表中拥有第一和第二维的2D矩阵。

list <- lapply(list, function(x) {
  dim(x) <- d[1:2]
  x
})