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@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.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
