如何使用“ eweibull”功能保存Weibull分布的参数？

Question

早上好

我正在使用“ eweibull”函数来计算R中数据集的形状和比例参数。我想保存找到的参数，但是所使用的代码无法正常工作。有人能帮我吗？还有另一种方法吗？

n <- 500
shape <- 1.5
scale <- 0.5
X <- rweibull(n, shape, scale)
(est.par <- eweibull(X))

est.par[attributes(est.par)$par.type=="shape"]
est.par[attributes(est.par)$par.type=="scale"]