Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/64.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中的分裂矩阵_R - Fatal编程技术网

R中的分裂矩阵

R中的分裂矩阵,r,R,我试图沿行拆分矩阵,但不确定如何执行。例如,如果我有一个NxM矩阵,但想拆分该矩阵,从而得到n(n/n)个xM矩阵,我该如何做 如果我有一个矩阵X: [,1] [,2] [1,] 1 21 [2,] 2 22 [3,] 3 23 [4,] 4 24 [5,] 5 25 [6,] 6 26 [7,] 7 27 [8,] 8 28 [9,] 9 29 [10,] 10 30

我试图沿行拆分矩阵,但不确定如何执行。例如,如果我有一个NxM矩阵,但想拆分该矩阵,从而得到n(n/n)个xM矩阵,我该如何做

如果我有一个矩阵X:

      [,1] [,2]
 [1,]    1   21
 [2,]    2   22
 [3,]    3   23
 [4,]    4   24
 [5,]    5   25
 [6,]    6   26
 [7,]    7   27
 [8,]    8   28
 [9,]    9   29
[10,]   10   30
[11,]   11   31
[12,]   12   32
[13,]   13   33
[14,]   14   34
[15,]   15   35
[16,]   16   36
[17,]   17   37
[18,]   18   38
[19,]   19   39
[20,]   20   40`
如果n=2,则功能块(X,n)的输出为

[[1]]

       [,1] [,2]
 [1,]    1   21
 [2,]    2   22
 [3,]    3   23
 [4,]    4   24
 [5,]    5   25
 [6,]    6   26
 [7,]    7   27
 [8,]    8   28
 [9,]    9   29
[10,]   10   30

[[2]]

       [,1] [,2]
 [1,]   11   31
 [2,]   12   32
 [3,]   13   33
 [4,]   14   34
 [5,]   15   35
 [6,]   16   36
 [7,]   17   37
 [8,]   18   38
 [9,]   19   39
[10,]   20   40

提前谢谢你的帮助

我们创建一个要拆分的分组列

n <- 10
grp <- (seq_len(nrow(X)) - 1) %/% n + 1
split(as.data.frame(X), grp)
数据
X@RyanChan
nrow(X)/n
n的示例不匹配抱歉,你是对的,我想你需要X[I:(I+nrow(X)/n-1),]
lapply(seq(1, nrow(X), by =  n), function(i) X[i:(i+n -1), ])
X <- matrix(1:40, ncol = 2)