Rのファイル出力： ベクトルと行列を1つの行に出力したい

Rのファイル出力に関してです．

次のようなベクトルと行列があったときに，

x <- c(1:3)
y <- matrix(1:9, nrow = 3, ncol = 3)
z <- matrix(1:15, nrow = 3, ncol = 5)

このようなcsvを出力したいです．

1,1,4,7,1,4,7,10,13\n
2,2,5,8,2,5,8,11,14\n
3,3,6,9,3,6,9,12,15\n

変数で表すとこうなります．

x[1],y[1,],z[1,]
x[2],y[2,],z[2,]
x[3],y[3,],z[3,]

単に

write.table(y[1,],"test.csv", append = T,quote = F,sep=",",row.names = F,col.names = F)

というふうにやると

1\n
4\n
7\n

となってしまってダメでした．