# \donttest{
AMSD(1:2, gamma = 0.05)
AMSD(1:2, gamma = 1, theta = 2)
marginal_utility(
c(1, 1.001),
c(0, 1), function(x) AMSD(x, gamma = 0.5)
)
marginal_utility(
c(1.001, 1),
c(0, 1), function(x) AMSD(x, gamma = 0.5)
)
# }
Run the code above in your browser using DataLab