在R中找到Weibull 3分布的均值

Question

給定alpha，lambda和phi（形狀，比例和“保證”時間）（發生任何故障之前的時間），如何找到分布的均值？
qweibull3給出中位數。
rweibull3提供了一個很好的隨機樣本，它近似於平均值，但不是理論值。

Answer 1

從Wiki尋找定義： https ： //en.wikipedia.org/wiki/Weibull_distribution

weibull3_mean <- function(gtime, shape, scale) {
    gtime + scale*gamma(1.0+1.0/shape)
}