x <- rfatigue(1e5,.5,2,5)hist(x,100, freq =FALSE)curve(dfatigue(x,.5,2,5),2,20, col ="red", add =TRUE)hist(pfatigue(x,.5,2,5))plot(ecdf(x))curve(pfatigue(x,.5,2,5),2,20, col ="red", lwd =2, add =TRUE)
References
Birnbaum, Z. W. and Saunders, S. C. (1969). A new family of life distributions. Journal of Applied Probability, 6(2), 637-652.
Desmond, A. (1985) Stochastic models of failure in random environments. Canadian Journal of Statistics, 13, 171-183.
Vilca-Labra, F., and Leiva-Sanchez, V. (2006). A new fatigue life model based on the family of skew-elliptical distributions. Communications in Statistics-Theory and Methods, 35(2), 229-244.
Leiva, V., Sanhueza, A., Sen, P. K., and Paula, G. A. (2008). Random number generators for the generalized Birnbaum-Saunders distribution. Journal of Statistical Computation and Simulation, 78(11), 1105-1118.