Как определить разделительные линии взвешенной диаграммы Вороного, степенной или диаграммы Лагерра – Вороного в R

Question

У меня проблема, аналогичная той, которая обсуждалась в этом посте:

Схема проекта Сципи Вороного от 3d до 2d

Тем не менее, я рассчитываю выполнить диаграмму мощности в R. Я знаю, что функция deldir() в deldir использует "весовые коэффициенты" из атрибута "z" в качестве меток, а не фактических весовых коэффициентов, но мне нужна функция, которая будет используйте веса, чтобы определить, где разделительные линии нарисованы следующим образом:

Что я ищу:

Это то, что я до сих пор (который дает нормальную невзвешенную диаграмму Вороного):

library(dismo)
x=c(1,4,3)
y=c(1,2,5)
z=c(1,3,2)
points=data.frame(x=x,y=y)
vor <- dismo::voronoi(points)
plot(vor)
points(x,y)