Как предложил sindri_baldur, вы можете использовать lapply
. Вы также можете просто создать тензор / массив, а не список матриц, и затем индексировать его напрямую.
a <- array(data = sample(c(-1, 0, 0, 1), 200, replace=TRUE), dim = c(10,2,10))
a[1:5, 1:2, ]
# , , 1
#
# [,1] [,2]
# [1,] 1 0
# [2,] 0 0
# [3,] 1 -1
# [4,] 0 0
# [5,] 0 0
#
# , , 2
#
# [,1] [,2]
# [1,] 0 -1
# [2,] 0 1
# [3,] 1 0
# [4,] 1 0
# [5,] 1 0
#
# , , 3
#
# [,1] [,2]
# [1,] 0 -1
# [2,] 0 0
# [3,] 0 -1
# [4,] 1 0
# [5,] 1 -1
#
# , , 4
#
# [,1] [,2]
# [1,] 1 0
# [2,] 0 0
# [3,] -1 0
# [4,] 1 -1
# [5,] 1 0
#
# , , 5
#
# [,1] [,2]
# [1,] 0 1
# [2,] 0 1
# [3,] 0 1
# [4,] -1 0
# [5,] -1 0
#
# , , 6
#
# [,1] [,2]
# [1,] 1 0
# [2,] -1 1
# [3,] -1 0
# [4,] 0 1
# [5,] 0 1
#
# , , 7
#
# [,1] [,2]
# [1,] 0 -1
# [2,] 0 0
# [3,] 1 1
# [4,] -1 -1
# [5,] 0 1
#
# , , 8
#
# [,1] [,2]
# [1,] 0 0
# [2,] 0 0
# [3,] 0 -1
# [4,] -1 0
# [5,] 1 0
#
# , , 9
#
# [,1] [,2]
# [1,] 1 0
# [2,] 1 0
# [3,] 0 -1
# [4,] 1 -1
# [5,] 1 -1
#
# , , 10
#
# [,1] [,2]
# [1,] -1 1
# [2,] 1 0
# [3,] 0 0
# [4,] 0 1
# [5,] 1 -1