由于数字内部表示的经典问题,我想在写入外部文件时会修改栅格值:
library(terra)
r <- rast(ncol=2, nrow=2, vals=c(5.3, 7.1, 3, 1.2))
sprintf("%.8f",values(r))
# [1] "5.30000000" "7.10000000" "3.00000000" "1.20000000"
t <- writeRaster(r, "test.tif", overwrite=TRUE)
sprintf("%.8f",values(t))
#[1] "5.30000019" "7.09999990" "3.00000000" "1.20000005"
这可能是一个很大的问题。什么是“最佳”适当的解决方法?我测试了整数格式的舍入和写入,它有效:
r <- rast(ncol=2, nrow=2, vals=c(5.3, 7.1, 3, 1.2))
sprintf("%.8f",values(r))
#[1] "5.30000000" "7.10000000" "3.00000000" "1.20000000"
r=10*r
t <- writeRaster(r, "test.tif", overwrite=TRUE,wopt=list(datatype="INT4S"))
t=t/10
sprintf("%.8f",values(t))
#[1] "5.30000000" "7.10000000" "3.00000000" "1.20000000"
有更好的解决方法吗?特别是,terra 中是否有任何“精度”属性,可以与每个栅格相关联,从而允许用户更简单、更有效地管理这些问题?