複数の種のラスター ファイル (Maxent 出力) のラスター幅を計算しようとしており、for ループを使用してこれを実行しています。幅が計算されるすべてのループで、結果を csv ファイルとして保存することも意図していましたが、問題が発生しています。
これは私がこれまで持っていたコードです:
data <- read.csv("orchid_occurrences.csv", sep = ";", stringsAsFactors = FALSE)
spp_to_model <- unique(data$species)
orchid <- paste0("./orchid_data/",spp_to_model,"_avg.asc")
for(spp_to_model in orchid){
spp_raster <- raster(spp_to_model)
spp_breadth <- raster.breadth(spp_raster)
write.table(spp_breadth, spp_to_model,"_breadth.csv", row.names = FALSE)
}
ここで共有したオカレンスデータとラスター ファイルのサンプルに合わせて、これを少し調整しました。
前もって感謝します！