最小コストパスバリア（R）（gdistance）

Question

私は最小コストパスで横断できないバリア（川）を作成しようとしています。

私は陸上や河川の遷移値を含む「エリア」を使って遷移レイヤーを作成しました。しかし、障壁には、離散的な障壁ではなく、周囲に「バッファ」があり、値が大きくなります。図から分かるように

コストラスタと遷移層 、遷移層におけるバリア周り「バッファー」があります。

離散境界を作成する方法についてのアイデアはありますか？好ましくは障壁を値1000として、それ以外の場合は1の値である。

ありがとう！

コード：私はあなたが確率は常に可能であるためにあなたの本当のバリアNA値としてではなく、高い価値を持つが、定義示唆 library(gdistance) ## Create cost surface where "land" exists in the middle cost <- raster(nrow=100, ncol=100, xmn=0, xmx=100, ymn=0, ymx=100, crs="+proj=utm") cost[] <- 10 cost[cellFromRowColCombine(cost, 50:55,20:80)] <- 1000 costf <- asFactor(cost < 100) ## Produce transition matrices, and correct because 8 directions trCost <- transition(costf, "areas", directions=16) trCost1 <- geoCorrection(trCost[[2]], type="c") plot(cost) plot(raster(trCost[[1]]))

Answer 1

：

私はここにこの質問に答え

library(gdistance) 

## Create cost surface where "land" exists in the middle 
cost <- raster(nrow=100, ncol=100, 
       xmn=0, xmx=100, ymn=0, ymx=100, crs="+proj=utm") 
cost[] <- 10 
cost[cellFromRowColCombine(cost, 50:55,20:80)] <- NA 
costf <- asFactor(cost < 100) 
## Produce transition matrices, and correct because 8 directions 
trCost <- transition(costf, "areas", directions=16) 
plot(cost) 
plot(raster(trCost))