Проблема при использовании fitdist внутри команды tryCatch в R

Question

Я хотел бы понять поведение tryCatch в моем примере кода:

require(fitdistrplus)
a = as.data.frame(table(rpois(n = 1000,lambda = 6)))
fitdist(data = a$Freq,distr = "nbinom",discrete = TRUE)
result = tryCatch(expr = (fitdist(data = a$Freq, distr = "nbinom",discrete = TRUE)),
error = function(err) {print(paste("MY_ERROR:  ",err))},
warning = function(wrr) {print(paste("MY_WARNING:  ",wrr))})

fitdist команда при исполнении вне tryCatch Команда дает параметры, связанные с nbinom поместиться. Однако, когда я делаю то же самое в команде try catch, я получаю следующее предупреждение:

[1] "MY_WARNING:  simpleWarning in dnbinom(c(3L, 18L, 37L, 77L, 125L, 152L, 163L, 168L, 104L, 77L, : NaNs produced\n"

Может кто-нибудь, пожалуйста, помогите мне понять это наблюдение?

РЕДАКТИРОВАТЬ: я создал этот тестовый пример как образец проблемы, с которой я сталкиваюсь во время выполнения цикла, чтобы подогнать распределения по нескольким столбцам большого набора данных. Мне нужно использовать tryCatch для перебора нескольких распределений и методов соответствия распределений, таких как mle, mme и т. Д. Основная проблема, с которой я сталкиваюсь, заключается в том, что fitdist ведет себя так, как ожидалось, при выполнении автономно, но не внутри команды tryCatch.