Я делаю универсальный кригинг с функцией krige () и interpolate (). Для функции предиката () я использую функцию clusterR () в «параллельном» пакете, чтобы сократить время выполнения.
Кроме того, в нем упоминается, что он также может использовать интерполяцию. Тем не менее, я не могу поставить правильное кодирование на Kriging.
Например) 'Предсказание'
begincluster(18)
clusterCub <- clusterR(muese.grid, predict, args=list(muese.Cub), filename="muese_pred.tif", format="Gtiff", progress="text")
endCluster()
but) 'interpolate'
formula <- OM ~ DEM + temp + NDVI
variogram
gUK (gstat)
UKdata <- krige(OM ~ DEM + temp + NDVI, location=meuse, model=variogram, newdata=meuse.grid)
UKintdata <- interpolate(rasters, gUK, xyOnly=False, index=1, filename="muese_pred.tif", format="GTiff")
clusterUK <- clusterR(rasters, interpolate, args=list(?????), filename="muese_pred.tif", format="GTiff", progress="text")
endCluster()
Как мне установить вышеуказанный код? Если бы я просто использовал «интерполировать», мне потребовался бы месяц, чтобы получить результат.