Функция gof из пакета btergm дает значение AU C для точного вызова, превышающего 1

Question

Я пытался сделать прогнозирование вне выборки, используя функцию gof из пакета btergm. При вычислении значения AU C для кривой точности повторного вызова из испытательного набора я получаю результат 1,012909, который кажется теоретически невозможным.

Как я могу интерпретировать результат, или я делаю что-то не так. Спасибо! Вот мой код:

network <- readRDS(url("https://www.dropbox.com/s/zxhqxa8h9awkzpd/network.rds?dl=1"))
model.3<- btergm(network[1:9]~edges+gwodegree(1, fixed=TRUE)+transitiveties + ctriple +
                gwidegree(1, fixed=TRUE)+mutual+gwesp(1.5, fixed=TRUE)+ttriple+
                memory(type="stability")+delrecip,R=1000)
gof.3 <-gof(model.3, nsim = 1000,target=network[[10]],formula = network[9:10]~edges+gwodegree(1,fixed=TRUE) + 
               transitiveties + ctriple +gwidegree(1,fixed=TRUE)+mutual+gwesp(1.5, fixed=TRUE)+ttriple+
               memory(type="stability")+delrecip,coef = coef(model.3), 
               statistics = rocpr)
gof.3[[1]]$auc.pr