> data
[1] 4.358970e-04 1.853927e-03 3.517240e-04 1.430168e-03 2.706941e-03
[6] 2.000000e-03 2.577093e-03 9.984887e-03 2.842491e-03 8.160460e-03
[11] 1.714595e-02 1.314857e-02 9.230000e-07 5.920000e-08 7.690000e-08
[16] 9.040000e-09 1.050000e-08 1.848740e-04 3.686440e-04 1.751310e-04
[21] 3.013180e-04
> fitdistr(data,densfun="weibull",lower=0)
Error in stats::optim(x = c(0.000435897, 0.001853927, 0.000351724, 0.001430168,  :
  L-BFGS-B needs finite values of 'fn'
In addition: Warning message:
In densfun(x, parm[1], parm[2], ...) : 产生了NaNs

如何解决？是数据问题吗？

> fitdistr(data,"weibull")
Error in stats::optim(x = c(0.000435897, 0.001853927, 0.000351724, 0.001430168,  :
  non-finite finite-difference value [2]
In addition: Warning messages:
1: In densfun(x, parm[1], parm[2], ...) : 产生了NaNs
2: In densfun(x, parm[1], parm[2], ...) : 产生了NaNs
3: In densfun(x, parm[1], parm[2], ...) : 产生了NaNs
4: In densfun(x, parm[1], parm[2], ...) : 产生了NaNs
5: In densfun(x, parm[1], parm[2], ...) : 产生了NaNs
6: In densfun(x, parm[1], parm[2], ...) : 产生了NaNs
7: In densfun(x, parm[1], parm[2], ...) : 产生了NaNs
8: In densfun(x, parm[1], parm[2], ...) : 产生了NaNs

这样也不对 。
请多多指教!