Hi, do you mean this? pk<-matrix(rnorm(12),nrow=4,ncol=3) ck1<-cbind(rep(pk[,1],4),rep(pk[,2],4),rep(pk[,3],4)) ## or ck2<-cbind(rep(pk[,1],each=4),rep(pk[,2],each=4),rep(pk[,3],each=4))
pk ck1 ck2 best, Daniel fernanda lopez wrote: > > 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]] > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > > -- View this message in context: http://www.nabble.com/Loop-problem-tp18439649p18439918.html Sent from the R help mailing list archive at Nabble.com. ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.