Displaying 1 result from an estimated 1 matches for "1km_grid_nzmg".
2011 Aug 18
3
Speeding nested loops up
...nt 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...