[R] Min , Max

Jonsson amen.alyaari at Bordeaux.inra.fr
Sat Apr 28 18:40:56 CEST 2012


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.



More information about the R-help mailing list