[R] Speeding nested loops up

[mark_horo]

Hi I'm trying to speed my loop up. Any Suggestions?? At the moment it takes a
few days to run.

THE CODE
---------------------------------------------------------------------------------------------------
	for(i in 1:11) {
		for (j in 3:12) {
			for (k in 1:273107) {					
						y[k,1] <- x[i,j,k]
						print(y)
								Rainfall_dataset <- read.table("1km_grid_nzmg.csv", 
								header=TRUE, sep=",", na.strings="NA", dec=".", strip.white=TRUE)	

								t <- Rainfall_dataset
								print(t)
								
								p<-cbind(t,y)
								#y<-cbind(t,y)
								#print(y)			
			}
						# This where you write out array y to a csv file
						# Save output as a csv file	
						site <- paste("site",i,"-",j)

							csvfile <- paste(site,sep=".","csv"); print(csvfile)
							path<- paste("c:/Data/",csvfile)
							print(path)
							write.csv(p,file=path, row.names = TRUE)		
		}
	}

--
View this message in context: http://r.789695.n4.nabble.com/Speeding-nested-loops-up-tp3751485p3751485.html
Sent from the R help mailing list archive at Nabble.com.