x <- rdweibull(1e5,0.32,1)xx <- seq(-2,100, by =1)plot(prop.table(table(x)), type ="h")lines(xx, ddweibull(xx,.32,1), col ="red")# Notice: distribution of F(X) is far from uniform:hist(pdweibull(x,.32,1),50)plot(ecdf(x))lines(xx, pdweibull(xx,.32,1), col ="red", lwd =2, type ="s")
References
Nakagawa, T. and Osaki, S. (1975). The Discrete Weibull Distribution. IEEE Transactions on Reliability, R-24, 300-301.
Kulasekera, K.B. (1994). Approximate MLE's of the parameters of a discrete Weibull distribution with type I censored data. Microelectronics Reliability, 34(7), 1185-1188.
Khan, M.A., Khalique, A. and Abouammoh, A.M. (1989). On estimating parameters in a discrete Weibull distribution. IEEE Transactions on Reliability, 38(3), 348-350.