1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| > dd <- data.frame(a=runif(10),b=runif(10))
> dd
a b
1 0.8559296 0.15744051
2 0.7251357 0.33548403
3 0.9890169 0.92781914
4 0.4643193 0.72698215
5 0.5231908 0.71472863
6 0.9872498 0.94545132
7 0.4668056 0.35347475
8 0.4891905 0.59298133
9 0.8380037 0.07659692
10 0.5877439 0.91899849
> cbind(dd,c=dd$a)
a b c
1 0.8559296 0.15744051 0.8559296
2 0.7251357 0.33548403 0.7251357
3 0.9890169 0.92781914 0.9890169
4 0.4643193 0.72698215 0.4643193
5 0.5231908 0.71472863 0.5231908
6 0.9872498 0.94545132 0.9872498
7 0.4668056 0.35347475 0.4668056
8 0.4891905 0.59298133 0.4891905
9 0.8380037 0.07659692 0.8380037
10 0.5877439 0.91899849 0.5877439 |