R中IDW的留一交叉验证

时间:2017-01-24 15:05:50

标签: r interpolation cross-validation

我试图通过留一交叉验证来检查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

我想知道为什么会这样。我该如何修改?

0 个答案:

没有答案