Re: [R] to replace the for loop

2013-12-13 Thread arun
Hi, May be this helps: set.seed(42)  T <- matrix(sample(1:20,20,replace=TRUE),ncol=5)  TEMP <- T T1 <- T  for(i in 1: nrow(TEMP)){  for(j in 1: nrow(TEMP)){if (i <= j) T[i, j] <- 0 }}   indx <- expand.grid(rep(list(1:nrow(TEMP)),2))[,2:1] T1[as.matrix(indx[indx[,1] <= indx[,2],])] <- 0 #or libra

Re: [R] to replace the for loop

2013-12-13 Thread Berend Hasselman
On 14-12-2013, at 08:01, Arnaud Michel wrote: > Hello > > I would like to replace the for loop this below > > T <- as.matrix(T) > for(i in 1: nrow(TEMP)){ > for(j in 1: nrow(TEMP)){if (i <= j) T[i, j] <- 0 }} > Your code is mangled. We don’t know what T is. You refer to TEMP in the for loop

[R] to replace the for loop

2013-12-13 Thread Arnaud Michel
Hello I would like to replace the for loop this below T <- as.matrix(T) for(i in 1: nrow(TEMP)){ for(j in 1: nrow(TEMP)){if (i <= j) T[i, j] <- 0 }} I don't find the function in the doc. Thanks in advance for your help. -- Michel ARNAUD Chargé de mission auprès du DRH DGDRD-Drh - TA 174/04 Av