［R］行列に列を追加する

cbind関数を使う。最後の例のとおり、行数が異なる場合はエラーが発生する。

> mx1 <- matrix(1:9, nrow = 3)
> mx2 <- matrix(10:15, nrow = 3)
> print(mx1)
     [,1] [,2] [,3]
[1,]    1    4    7
[2,]    2    5    8
[3,]    3    6    9
> print(mx2)
     [,1] [,2]
[1,]   10   13
[2,]   11   14
[3,]   12   15
> mx3 <- cbind(mx1, mx2)
> print(mx3)
     [,1] [,2] [,3] [,4] [,5]
[1,]    1    4    7   10   13
[2,]    2    5    8   11   14
[3,]    3    6    9   12   15
> mx4 <- matrix(16:19, nrow = 4)
> print(mx4)
     [,1]
[1,]   16
[2,]   17
[3,]   18
[4,]   19
> cbind(mx1, mx4)
 cbind(mx1, mx4) でエラー: 
   行列の行数は一致していなければなりません (2 番目の引数を参照)