, пытаясь нарисовать круги на основе расстояния между точками

Я пытаюсь нарисовать круги, и я вроде как надеялся, что они пересекутся с некоторыми точками, увы ...

library(maptools)
library(plotrix)
xy <- matrix(runif(20, min = -100, max = 100), ncol = 2)
distance <- spDistsN1(xy, xy[1, ])
plot(0,0, xlim = c(-100, 100), ylim = c(-100, 100), type = "n")
points(data.frame(xy))
points(xy[1, 1], xy[1, 2], pch = 16)
draw.circle(xy[1, 1], xy[1, 2], radius = distance)

Приведенный выше код делает следующее:

• Создает 10 случайных точек и выбирает одна (первая) точка, которая будет служить «якорем».
• Вычислить расстояние от якоря до всех остальных точек. Это будет наш "радиус".
• Нарисуйте круги вокруг точки привязки, используя вычисленные выше расстояния для радиусов.
• Поцарапайте, почему круги не пересекаются с точками, которые использовались для вычисления радиусов.