data-raw/elasticities.R

In djmorris1989/iomodeltobalc: Input-Output Modelling of Tobacco and Alcohol Policy

### create dataset of elasticities
elasticity_ontrade_meng14 <- c(-0.79,-0.59,-0.87,-0.89,-0.19)
elasticity_offtrade_meng14 <- c(-0.98,-1.27,-0.38,-0.08,-0.59)

elasticity_ontrade_collis10 <- c(-0.77,-0.85,-0.46,-1.15,-0.91)
elasticity_offtrade_collis10 <- c(-1.10,-1.13,-0.54,-0.9,-0.93)

elasticities_fai <- matrix(c(elasticity_ontrade_meng14,elasticity_offtrade_meng14,
                         elasticity_ontrade_collis10,elasticity_offtrade_collis10),
                       nrow=5,
                       byrow=FALSE,
                       dimnames = list(c("Beer","Cider","Wine","Spirits","RTDs"),
                                       c("On-Trade Meng14","Off-Trade Meng14","On-Trade Collis10","Off-Trade Collis10"))
                       )

elasticities <- as.data.frame(elasticities_fai)

usethis::use_data(elasticities,overwrite=TRUE)