Displaying 1 result from an estimated 1 matches for "imout".
Did you mean:
timout
2001 Dec 07
2
Memory problem
...integer(length = 384)
for (j in 1:length(fn)) {
img <- file(fn[j], "rb")
header <- readChar(img,8192)
imv <- readBin(img, "integer", n=1536*1536, size=2, signed=FALSE,
endian="big")
close(img)
imm <- matrix(imv, nrow=1536, ncol=1536)
imout <- file(paste("test_", fn[j], sep=""), "wb")
writeChar(header, imout, nchars = 512, eos = NULL)
#--------
for (i in 1:1536) {
writeBin(pad, imout, size=2, endian="big")
writeBin(imm[,i], imout, size=2, endian="big")
writeBi...