# NOT RUN {
data(Phases);
attach(Phases)
sample = undated_sample(Phase.1.alpha,Phase.1.beta)
# credible interval for the new date.
sample$credible
#time range interval
sample$timerange
# graphics = densities / IC / time range ggplot
sample$gr
# }
Run the code above in your browser using DataLab