try this: > matrixx<-function(A){ + B=matrix(NaN,nrow=(A+1),ncol=4) + k <- 1 + for (i in 3:A){ + for (j in i:A) { + B[k,] <- c(NaN, i-2, i-1, j) + k <- k + 1 + } + } + B + } > matrixx(5) [,1] [,2] [,3] [,4] [1,] NaN 1 2 3 [2,] NaN 1 2 4 [3,] NaN 1 2 5 [4,] NaN 2 3 4 [5,] NaN 2 3 5 [6,] NaN 3 4 5 >
On Fri, Apr 17, 2009 at 11:11 AM, emj83 <stp08...@shef.ac.uk> wrote: > > I would like to create a matrix in R that looks similar to this: > > [,1] [,2] [,3] [,4] > [1,] NaN 1 2 3 > [2,] NaN 1 2 4 > [3,] NaN 1 2 5 > [4,] NaN 2 3 4 > [5,] NaN 2 3 5 > [6,] NaN 3 4 5 > > I have the loop below: > > where A for example is 5 > > matrixx<-function(A){ > B=matrix(NaN,nrow=(A+1),ncol=4) > for(k in 1:(A+1)){ > for(i in 1:(A-2)){ > for(j in (i+2):A){ > } > } > } > B[k,]=c(NaN,i,(i+1),j) > print(B) > } > > But it only prints the final line in: > >> matrixx(5) > [,1] [,2] [,3] [,4] > [1,] NaN NaN NaN NaN > [2,] NaN NaN NaN NaN > [3,] NaN NaN NaN NaN > [4,] NaN NaN NaN NaN > [5,] NaN NaN NaN NaN > [6,] NaN 3 4 5 > > Could anyone give me a hand? Would be much appreciated. > > Thanks Emma > > -- > View this message in context: > http://www.nabble.com/numbers-loop-in-R-tp23099591p23099591.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. > -- Jim Holtman Cincinnati, OH +1 513 646 9390 What is the problem that you are trying to solve? ______________________________________________ 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.