如何在R中执行栅格计算

Question

我正在处理辐射测量光栅。我已经在两个单独的文件中编写了两个乐队：

setwd("D:/All_radio")
writeRaster(new,filename="NIR.envi",format="ENVI",overwrite=T)
writeRaster(new1,filename="SWIR.envi",format="ENVI",overwrite=T)

当我尝试时

ndii<-(("NIR.envi"- "SWIR.envi")/("NIR.envi"+ "SWIR.envi"))

错误发生为“二元运算符的非数字参数”如何将栅格转换为数字参数？

Answer 1

您可能需要包装calc中类似的东西raster。

 rast_stack <- stack(NIR.envi,SWIR.envi)
 fun <- function(x) { (x[1]-x[2])/(x[1]+x[2])}
 ndii <- calc(rast_stack, fun)

但无论如何，您的代码似乎存在一些问题。在这一行中，您使用字符串而不是栅格作为变量。

(("NIR.envi"- "SWIR.envi")/("NIR.envi"+ "SWIR.envi"))

并且您似乎尝试使用相同的数据创建两个栅格，在这种情况下您的输出将始终为 0。您还创建了一个栅格文件，但没有在 r 中创建对象。