Как я могу использовать точный отзыв с оценками плотности использования KDE (R) в R?

Question

Я использую пакет adehabitatHR для генерации KDE для пространственных точек UTM, и я хотел бы генерировать точные значения отзыва и значения AU C (RO C) для объекта estUD. Вот код, который я использую:

#sp.UTM is a spatialpoints object of UTM points

# create a reference bandwidth estimation
Khref <- kernelUD(sp.UTM, h = 'href', grid = 800, extent = 2.2)

# get the UD estimate and vectorize
Khrefud <- getvolumeUD(Khref, standardize=FALSE)
nlocrast<-count.points(sp.UTM,Khrefud)
kerneldata <- Khrefud@data$n # vector containing volume contour ( = predicted) values
pointdata <- nlocrast@data$x
pointdata <- ifelse(pointdata>=1,1,0) # vector containing location ( = actual) values

# calculate PR
#Precision recall
pr <- pr.curve(scores.class0 = kerneldata, weights.class0 = pointdata,
               curve = TRUE)
print(PR)

Ввод работает с функцией, но вывод не выглядит логичным. Что я делаю не так?