我试图通过留一交叉验证来检查IDW插值的结果,然后让RMSE看到预测的质量。
从github Interpolation in R,我发现了一些提示并在我的案例中应用如下:
我有63个位置保存为SpatialPointDataFrame,名为x_full_utm_2001
。对于每个位置,都附有降水数据,名为sumdata_2001
。
idw.out<- vector(length = length(sumdata_2001$Jan))
for (i in 1:length(sumdata_2001$Jan)) {
idw.out[i]<-idw(sumdata_2001$Jan~1, x_full_2001_utm[-i, ], x_full_2001_utm[i, ])$var1.pred
}
但我不知道为什么始终有错误警告我如下:
尺寸不匹配:位置124和数据63
我想知道为什么会这样。我该如何修改?