gt_plot_mr: Melzer Richard Illustration

Description Usage Arguments Examples

View source: R/gt_plot_mr.R

Description

gt_plot_mr plots returns to actors in a Melzer RIchard economy given an endowment e

Usage

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))

Arguments

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

Examples

1
2
#Illustration of bargaining outcomes from possibility set
gt_plot_mr(e=.5, main = "Endowment = .5")

macartan/hop documentation built on Jan. 4, 2022, 9:21 p.m.