spatial perturbation

[OrdinarySK]

Hello, I coded a piece of code for multi-object spatial site sampling based on the AMOSA algorithm, but I found that my spatial perturbations didn't seem right. Can you give some advice, below is my perturbation code.

` x_extent = x_extent-iter/iterationx_extent
y_extent = y_extent-iter/iterationy_extent
temp_pt[j,1] = curr_pt[j,1] + x_extent * runif(1, -0.2, 0.2)
temp_pt[j,2] = curr_pt[j,2] + y_extent * runif(1, -0.2, 0.2)

while(point.in.polygon(temp_pt[j,1], temp_pt[j,2], candidates@polygons[[1]]@Polygons[[1]]@coords[,1],
                       candidates@polygons[[1]]@Polygons[[1]]@coords[,2]) != 1){
  temp_pt[j,1] = curr_pt[j,1] + x_extent * runif(1, -0.2, 0.2)
  temp_pt[j,2] = curr_pt[j,2] + y_extent * runif(1, -0.2, 0.2)
}