Ошибка в U

#r #probability-distribution #goodness-of-fit

Вопрос:

 library(extRemes)
library(goftest)
data("Potomac")

fitevd <- fevd(Flow, Potomac, type = c("GEV"), method = c("Lmoments"), 106)

distribfunc = pevd(Potomac$Flow, loc = 8.693596e 04, scale = 4.135809e 04, 
      shape = 2.164866e-01, threshold = 1, lambda = 1, type = c("GEV"), 
      lower.tail = TRUE, log.p = FALSE)

gevfunction <- function(distribfunc)
ad.test(Potomac$Flow,gevfunction)
 

Я запускаю код, и он говорит

Ошибка в U

Я не знаю, что означает ошибка и как ее устранить.