r - spsample : Error in . local(x, n, type, ...) :迭代未收敛；尝试扩大参数 iter

Question

在循环上运行随机点生成时遇到此错误。如果我只生成一次点，spsample 工作得很好，但如果我重复尝试这个，我最终(迟早)会遇到这个错误。任何如何正确解决它的想法(我的意思是理论上我可以跳过错误的迭代，但这不是很好的编码，对吧？)。此问题似乎仅在使用“随机”选项时才会发生。

data(meuse.riv)
meuse.sr = SpatialPolygons(list(Polygons(list(Polygon(meuse.riv)), "x")))
#works fine if run just once

n<-10
points<-spsample(meuse.sr, n, "random")

for (i in 1:5000){
  print(i)
  points<-spsample(meuse.sr, n, "random")
}

Answer 1

我想你应该遵循错误消息的建议:

for (i in 1:5000){
  print(i)
  points<-spsample(meuse.sr, n, "random", iter=10)
}

运行了所有 5000 次迭代，没有出现错误消息。 ?spsample 说

iter(default = 4) number of times to try to place sample points in a polygon before giving up and returning NULL - this may occur when trying to hit a small and awkwardly shaped polygon in a large bounding box with a small number of points.

所以给它更多的机会就可以解决问题。