powered by
simWbMix(n, mixParm)
rweibull
quanWbMix
emCenWbMix.T1
emCenWbMix.T2
mmix = rbind(c(0.7, 5, 7),c(0.3, 15, 6)) set.seed(1) y <- sort(simWbMix(300, mmix)) #Generate the data hist(y)
Run the code above in your browser using DataLab