results <- BMRMM(foxp2sm, num.cov = 2, simsize = 50,
duration.distr = list('mixgamma',shape=rep(1,3),rate=rep(1,3)))
# plot the histogram of all duration times superimposed with
# the posterior mixture gamma distribution
hist(results, xlim = c(0, 1), breaks = 50)
# plot the histogram for components 1 superimposed with
# the mixture gamma distribution of the last MCMC iteration
hist(results, components = 1)
Run the code above in your browser using DataLab