同じ次元の 2 つのバイナリ ファイル (ラスター) があります。最初のファイルは呼び出されover
、2 番目のファイルはcorr
. が 0.5 より大きいときはいつでも値over
を置き換えたいです。NA
corr
最初のファイルを読み取ります。
conn <- file("C:\\corr.bin", "rb") over <- readBin(conn, numeric(), size=4, n=1440*720, signed=TRUE) y <- t(matrix((data=corr), ncol=720, nrow=1440))## binary r1 <- raster(t(matrix((data=over), ncol=720, nrow=1440)))## raster
2 番目のファイルを読み取ります。
conne <- file("C:\\cor06.bin", "rb") corr <- readBin(conne, numeric(), size=4, n=1440*720, signed=TRUE) y1 <- t(matrix((data=corr), ncol=720, nrow=1440))## binary r <- raster(t(matrix((data=corr), ncol=720, nrow=1440)))##raster
結果を書きます:
to.write = file(paste("/orcomplete.bin", sep=""), "wb") writeBin(as.double(results), to.write, size = 4)