> A2 <- A[rep(1:nrow(A), each = 2), ]
> B2 <- B[rep(1:nrow(B), 3), ]
> A2
     [,1] [,2] [,3]
[1,]    1    2    3
[2,]    1    2    3
[3,]    4    5    6
[4,]    4    5    6
[5,]    7    8    9
[6,]    7    8    9
> B2
     [,1] [,2]
[1,]    0    9
[2,]    0    7
[3,]    0    9
[4,]    0    7
[5,]    0    9
[6,]    0    7
> cbind(A2, B2)
     [,1] [,2] [,3] [,4] [,5]
[1,]    1    2    3    0    9
[2,]    1    2    3    0    7
[3,]    4    5    6    0    9
[4,]    4    5    6    0    7
[5,]    7    8    9    0    9
[6,]    7    8    9    0    7