Dear all,
             I want to
write   ck<-cbind(rep(pk[1,1],4),rep(pk[1,2],4),rep(pk[1,3],4))   state ment
in a loop . How can I write it ?





> pk
           [,1]      [,2]       [,3]
[1,] -1.1354816 0.9808877 -0.9446314
[2,]  0.7787378 0.4536944  0.3204882
[3,] -1.7274907 1.5112011  1.4481839
[4,]  1.0629145 0.5976109 -0.5277638



> pk<-matrix(rnorm(12),nrow=4,ncol=3)
> pk
           [,1]      [,2]       [,3]
[1,] -1.1354816 0.9808877 -0.9446314
[2,]  0.7787378 0.4536944  0.3204882
[3,] -1.7274907 1.5112011  1.4481839
[4,]  1.0629145 0.5976109 -0.5277638

> ck<-cbind(rep(pk[1,1],4),rep(pk[1,2],4),rep(pk[1,3],4))
> ck
          [,1]      [,2]       [,3]
[1,] -1.135482 0.9808877 -0.9446314
[2,] -1.135482 0.9808877 -0.9446314
[3,] -1.135482 0.9808877 -0.9446314
[4,] -1.135482 0.9808877 -0.9446314


Thanks for your help

Fernanda Lopez
Netherlands

	[[alternative HTML version deleted]]

