search for: tp4630830

...])-(gy[[i]][b,gy[[i]][a,1]+1]))/(gy[[i]][a,gy[[i]][a,1]+1]) uv[i]<-v[i]+u[i] } w=0 w=mean(uv) } kk<-data.frame() for (a in 1:240){ for (b in 1:240){ if (a<b) kk[a,b]=l(a,b) else kk[a,b]=0 }} max(kk) -- View this message in context: http://r.789695.n4.nabble.com/For-calculation-is-so-slow-tp4630830.html Sent from the R help mailing list archive at Nabble.com.