## Not run:
# # Two experts
# # Expert 1 states P(X<30)=0.25, P(X<40)=0.5, P(X<50)=0.75
# # Expert 2 states P(X<20)=0.25, P(X<25)=0.5, P(X<35)=0.75
# # Both experts state 0<X<100.
#
# v <- matrix(c(30, 40, 50, 20, 25, 35), 3, 2)
# p <- c(0.25, 0.5, 0.75)
# myfit <- fitdist(vals = v, probs = p, lower = 0, upper = 100)
#
# feedback(myfit)
#
# # Feedback P(X<60) and the tertiles
# feedback(myfit, values=60, quantiles=c(0.33,0.66))
#
# # Compare fitted tertiles for different distributions, expert 2 only
# feedback(myfit, quantiles=c(0.33,0.66), ex=2)
# ## End(Not run)
Run the code above in your browser using DataLab