## Not run: ------------------------------------
# # Run a model
# output <- dd_hyperbolic("example", 2000, 1000, 3, 3)
#
# # Plot the hyper parameters ('k' and 'beta')
# plot(output)
#
# # Plot individual 'k' (discounting rate) parameters
# plotInd(output, "k")
#
# # Plot individual 'beta' (inverse temperature) parameters
# plotInd(output, "beta")
#
# # Plot individual 'beta' parameters but don't show density
# plotInd(output, "beta", show_density=F)
## ---------------------------------------------
Run the code above in your browser using DataLab