arrays - 数组操作给我合并表

Question

所以，我制作了 10 个 10X1 维度的矩阵，其中一个看起来像这样，

chains <- array(NA, dim = c(10, 1, 10))
chains

, , 10

    [,1]
[1,]   NA
[2,]   NA
[3,]   NA
[4,]   NA
[5,]   NA
[6,]   NA
[7,]   NA
[8,]   NA
[9,]   NA
[10,]   NA

但是，我想保留每个矩阵的最后 6 个观测值，所以我做到了，

   chains <-chains[5:10,,]
   chains

        [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]   NA   NA   NA   NA   NA   NA   NA   NA   NA    NA
[2,]   NA   NA   NA   NA   NA   NA   NA   NA   NA    NA
[3,]   NA   NA   NA   NA   NA   NA   NA   NA   NA    NA
[4,]   NA   NA   NA   NA   NA   NA   NA   NA   NA    NA
[5,]   NA   NA   NA   NA   NA   NA   NA   NA   NA    NA
[6,]   NA   NA   NA   NA   NA   NA   NA   NA   NA    NA

突然它给了我一张表，这给了我后面算法的尺寸误差，

我仍然希望我的“链”数组看起来像这样， , , 7

     [,1]
[1,]   NA
[2,]   NA
[3,]   NA
[4,]   NA
[5,]   NA
[6,]   NA


, , 8

    [,1]
[1,]   NA
[2,]   NA
[3,]   NA
[4,]   NA
[5,]   NA
[6,]   NA


, , 9

    [,1]
[1,]   NA
[2,]   NA
[3,]   NA
[4,]   NA
[5,]   NA
[6,]   NA


, , 10

    [,1]
[1,]   NA
[2,]   NA
[3,]   NA
[4,]   NA
[5,]   NA
[6,]   NA

对于错误的格式，我深表歉意，任何帮助将不胜感激!

Answer 1

我们需要 drop=FALSE 来防止子集删除维度

chainsN <- chains[5:10,,,drop=FALSE]
str(chainsN)
#logi [1:6, 1, 1:10] NA NA NA NA NA NA ...

在?Extract的帮助页面有提到

drop - For matrices and arrays. If TRUE the result is coerced to the lowest possible dimension