demandPriceTaker: Demand curve for a price-taking country

Description Usage Arguments Value Examples

Description

Builds the demand curve for a price-taking country

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
demandPriceTaker(
  parameters = NULL,
  population,
  gdp_pc,
  frac_high_risk,
  loss2yr,
  prices = seq(100, 1, -1),
  inisteps = c(10, 1),
  mainstep = 0.1,
  candidateFile = NULL,
  verbose = 0
)

Arguments

parameters

Parameters object with model parameters

population

Country population (in millions)

gdp_pc

Country GDP per capita (in thousand $)

frac_high_risk

Fraction of population that is high risk

loss2yr

Cumulative percent of GDP lost because of pandemic over two years

prices

Vector of market price for manufacturing capacity ($ per course / year)

inisteps

Step sizes to optimize over for the initial point

mainstep

Step size for main optimization

candidateFile

File with candidate data

verbose

How much output to produce. 0 means no output, 1 means limited output, 2 means full output.

Value

List with information on demand curve. Includes a data.table with total demand, benefits, and cost, and a matrix with demand for individual candidates at every price

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
## Not run: 
population <- 31.99
gdp_pc <- 6.71
frac_high_risk <- 0.131
loss2yr <- 0.269
par <- Parameters$new(population=population, gdp_pc=gdp_pc,
                   frac_high_risk=frac_high_risk,
                   loss2yr=loss2yr)
                   demand <- demandPriceTaker(parameters=par)

## End(Not run)

jc-castillo/vaccineEarlyInvest documentation built on Sept. 29, 2020, 12:48 p.m.