R：矩陣中的平均列對

Question

我有一個由許多列組成的大矩陣。我想通過平均每個附近的2列（例如，列1與2，列3與4等）來獲得具有相同行數和列數的一半的新矩陣。 現在我正在使用for循環，但我想知道是否有更智能的方法來實現這一點。

Answer 1

這裏的一個矢量化溶液：

m <- matrix(1:96,8); 
m; 
##  [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] 
## [1,] 1 9 17 25 33 41 49 57 65 73 81 89 
## [2,] 2 10 18 26 34 42 50 58 66 74 82 90 
## [3,] 3 11 19 27 35 43 51 59 67 75 83 91 
## [4,] 4 12 20 28 36 44 52 60 68 76 84 92 
## [5,] 5 13 21 29 37 45 53 61 69 77 85 93 
## [6,] 6 14 22 30 38 46 54 62 70 78 86 94 
## [7,] 7 15 23 31 39 47 55 63 71 79 87 95 
## [8,] 8 16 24 32 40 48 56 64 72 80 88 96 
(m[,seq(1,ncol(m),2)]+m[,seq(2,ncol(m),2)])/2; 
##  [,1] [,2] [,3] [,4] [,5] [,6] 
## [1,] 5 21 37 53 69 85 
## [2,] 6 22 38 54 70 86 
## [3,] 7 23 39 55 71 87 
## [4,] 8 24 40 56 72 88 
## [5,] 9 25 41 57 73 89 
## [6,] 10 26 42 58 74 90 
## [7,] 11 27 43 59 75 91 
## [8,] 12 28 44 60 76 92