r - mle 无法估计帕累托错误代码 100 的参数

Question

我正在尝试将帕累托分布拟合到以下数据

x <- 
    c(5857.33154195937, 2352.13410311605, 5868.4139887638, 5084.43835650941, 
      5544.58859069637, 3469.38719024777, 5935.54817351679, 849.551931991455, 
      4804.65544410752, 5707.79165932392, 4073.60262243151, 4828.50927019369, 
      5070.7443738169, 5080.41108830053, 4541.34252127723)

library(fitdistrplus)
library(actuar) # needs r 4.1.0
  
paretoMLE <- fitdist(x, 'pareto', method = 'mle')
  
Error in fitdist(x, "pareto", method = "mle") : 
    the function mle failed to estimate the parameters, 
  with the error code 100
  

我不知道为什么会发生这个错误。