Нахождение остатков в пакете fitdistrplus в R

Question

У меня есть код, где я использую fitdistrplus, чтобы приспособить распределение Вейбулла к различным наборам данных и вывести исходные данные на CDF.

##Performs Weibull fit using the Maximum GOF Estimations
 zFIT<-fitdist(x,"weibull",keepdata = TRUE, method = "mge", gof ="KS") ##Changedfrom CvM
 zbFIT <- bootdist(zFIT, niter= 251) 
  zparam<- c(coef(zFIT))
    z_alpha <-zparam[2]
    z_beta <-zparam[1]

 ##Write data output to file
    zDat<-c(summary(zFIT))
    zDataList <-as.vector(zDat[10])
    weibull_Data <-lapply(z, write, "Weibull_Data.txt", append = TRUE)
    weibull_Data <-lapply(zDataList, write, "Weibull_Data.txt", append = TRUE)

 ##Write the parameters to a txt file...
    weibull_params <-lapply(z, write, "Weibull_Fits.txt", append = TRUE)
    weibull_params <-lapply(zparam, write, "Weibull_Fits.txt", append = TRUE)

Я хочу получить доступ к остаткам подбора из этого расчета, чтобы применить экран псевдосигмы +/- 5 для идентификации и подсчета количества выбросов, так как они будут рассматриваться как внешняя совокупность дефектов.

Как получить вектор, список или матрицу остатков. fitdistr использует функцию остаток (), fitdistrplus должен наследовать эту функцию, но, похоже, она не работает, вызывая остаток (zFIT) (где zFIT - мой объект fitdist.....)

Есть идеи? Большое спасибо