'if statement'を使って新しいラスタを作成するR

Question

別のラスタの値に基づいてRで新しいラスタを作成したいと思います。私がやっていることをされて私はCONツールを使用して、ArcGISでこれを行うことができますが、私は以下R.に方法を見つけるように見えることはできません。上記の

r<-raster("b1.tif") 
if (r>33){ 
r2<-200 
}else{ 
r2<--0.156*r^2 + 11.2*r + 0.1 
} 

エラーを返して：

Error in if (slp > 33) { : argument is not interpretable as logical 

どこが間違っていますか？

Answer 1

r < 33 "rasterLayer"クラスのオブジェクトを整数と比較しているため、機能しません。ティフの値（最大値など）を比較する必要があります。

r <- raster("b1.tif") 
if (r@data@max > 33){ 
    r2 <- 200 
}else{ 
    r2 <-- 0.156*r^2 + 11.2*r + 0.1 
} 

あなたはTIFFのすべての値にアクセスしたい場合は、操作を行います。これはあなたがあなたの第二のTIFFを作成することができる値にr@data@values がによって。 Tiff全体をコピーしたい場合：r <- r2