使用奇數行將矩陣分割成兩行

Question

我想用奇數提取/分割矩陣。具體來說，我希望前15行然後是後14行被分開。 I.E.

submatrix_15 <- <rows 1-14, rows 30-44, etc> 
submatrix_14 <- <rows 15-29, rows 45-59, etc> 

Answer 1

喜歡的東西...

x <- matrix(1:200, ncol=2) 
x <- as.data.frame(suppressWarnings(cbind(x, c(rep(1,14), rep(2,15))))) 
split(x[,-3], list(x[,3]) 

...會給你兩個組件（清單1：1-14，30-44等; 2：15-29，45- 59等）

Answer 2

這應該爲你工作：

x <- matrix(rep(1:100, each=10), nrow=100, ncol=10, byrow=TRUE) 
x 

submatrix_15 <- x[which(seq(nrow(x)) %/% 15 %% 2 == 0),] 
submatrix_14 <- x[which(seq(nrow(x)) %/% 15 %% 2 == 1),] 

submatrix_15 
submatrix_14 

的%/%運算符返回一個除法的商，而%%返回餘數。因此，第一個操作返回指定的行組，而第二個操作返回這些組是奇數（等於1）還是偶數（等於0）。最後，which函數返回值爲TRUE和FALSE的值與1或0匹配。