SuccessionPlot(Phase1Min_chain, Phase1Max_chain, Phase2Min_chain, Phase2Max_chain, level = 0.95, title = "Characterisation of several phases", 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