# NOT RUN {
# Gamma mixture
gmix <- mixgamma(c(0.3, 20, 4), c(0.7, 50, 10))
# read out conjugate partner
likelihood(gmix)
ess(gmix)
# set conjugate partner
likelihood(gmix) <- "exp"
# ... which changes the interpretation of the mixture
ess(gmix)
# }
Run the code above in your browser using DataLab