if (FALSE) {
# 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