inst/ct_shiny/Simulations/tradeSims.R

tradeSims <- function(supply, demand, indata, mktElast, type = c("Tariffs", "Quotas")) {
  type <- match.arg(type)
  spec <- model_spec(type, supply, demand)
  run_model(spec, indata, list(mktElast = mktElast))
}

Try the competitiontoolbox package in your browser

Any scripts or data that you put into this service are public.

competitiontoolbox documentation built on Aug. 27, 2026, 1:06 a.m.