#fit a 2 component exponential model to this data set,
#plot the histogram of the observations and the fitted density.
data(lengthofstay)
out <- pmle.exp(lengthofstay,2,1)
plotmix.exp(lengthofstay,out)
Run the code above in your browser using DataLab