powered by
SuccessionPlot(Phase1Beginning_chain, Phase1End_chain, Phase2Beginning_chain, Phase2End_chain, level = 0.95, title = "Phases marginal posterior densities", GridLength = 1024)
data(Phases); attach(Phases) SuccessionPlot(Phase.1.alpha, Phase.1.beta, Phase.2.alpha, Phase.2.beta, 0.95)
Run the code above in your browser using DataLab