Image processing 将光栅转换为矩阵

我可以读取图像、光栅，将值限制在10-100之间。我不能做的是将限制转换成一个矩阵，在这个矩阵中我可以对所有值求和

library(raster)

DEM <- raster("img.JPG")

image(DEM, zlim=c(10,100))

在矩阵中，我可以执行计算

图像（DEM，zlim=c（10,60））

会导致

目标是只对红色圆圈求和

库（光栅）
D
image(DEM, zlim=c(10,60))

library(raster)
d <- raster("img.JPG")
dd <- reclassify(d, rbind(c(-Inf, 10, NA), c(60, Inf, NA)))
# or:  d[d< 10 | d > 60] <- NA
plot(dd)
hist(dd)

m <- matrix(d)
m[m<10] <- NA