Encontre a média da distribuição de Weibull 3 em R - r, distribuição, análise de sobrevivência, weibull

Dados alfa, lambda e phi (forma, escala e tempo de "garantia" (tempo antes de qualquer falha), como faço para encontrar a média da distribuição?
qweibull3 fornece a mediana.
rweibull3 faz uma boa amostra aleatória que se aproxima da média, mas não é o valor teórico.

Respostas:

Procurando por definições no wiki: https://en.wikipedia.org/wiki/Weibull_distribution

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