Description Usage Arguments Examples
gt_plot_mr plots returns to actors in a Melzer RIchard economy given an endowment e
1 2 3 4 5 6 7 | gt_plot_mr(endowment = 0.5, e = endowment, tax = seq(0, 1, 0.01),
ymax = gt_mr_utility(gt_mr_maxu(e), e), main = paste("Endowment =", e),
xlab = "", scale = 1, ylab = "", color = "grey",
gt_mr_distribution = function(tax, e) tax * (1 - tax)/2,
gt_mr_production = function(tax, e) (1 - tax)^2 * e/4,
gt_mr_utility = function(tax, e) (gt_mr_distribution(tax, e) +
gt_mr_production(tax, e)), gt_mr_maxu = function(e) (1 - e)/(2 - e))
|
e |
Endowment |
main |
Main title |
gt_mr_distribution |
function showing distribution given taxes |
gt_mr_production |
function giving production given taxes |
gt_mr_utility |
function giving utility given taxes |
gt_mr_maxu |
function giving max utility given endowment |
t |
tax range |
1 2 | #Illustration of bargaining outcomes from possibility set
gt_plot_mr(e=.5, main = "Endowment = .5")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.