[R] Min , Max

[Jonsson]

Hello again,
I am still having the same problem with the main loop.it succeeded to finish
reading and writing from the first file in my listfile but failed when it
moves to the second file giving this error:Error: subscript out of bounds

library(Matrix) 
setwd("C:\\Users\\aalyaari\\Desktop\\img") 
listfile<-dir() 
long <- file("C:\\Users\\aalyaari\\Desktop\\New folder (5)\\inra.bin", "rb") 
 A=readBin(long, integer(), size=2,n=67420*1, signed=F) 
 ta<-t(A) 
 lot <- file("C:\\Users\\aalyaari\\Desktop\\New folder (5)\\lat.img", "rb") 
 B=readBin(lot, integer(), size=2,n=67420*1, signed=F) 
 tb<-t(B) 

for (n in 1:length(listfile)) 
{ 
    
               h=listfile[n] 
   
        b=file.info(h)$size/67420/4 

 	wind <- file(h, "rb") 
 	C=readBin(wind, double(), size=4,n=67420*b, signed=TRUE) 
  
 	D<-matrix(C,nrow=b,ncol=67420) 
  
        for(d in 1:b) 
 	{ 
         	M <- Matrix(-9999, 360, 720) 
       	tm<-t(M) 
         	for(i in 1:67420) 
         	{ 
                       tm[ta[i],tb[i]]= round(10 * mean(D[(d-1)*8 + 1:8),
i]) 
        
         	} 
         	to.write <- sprintf("C:\\Users\\aalyaari\\Desktop\\New folder
(6)\\Yar_%00d.bin", d) 
         	writeBin(as.integer(tm at x), size=2,to.write) 
 	} 
} 

--
View this message in context: http://r.789695.n4.nabble.com/Min-Max-tp4593065p4594985.html
Sent from the R help mailing list archive at Nabble.com.