Tornqvist Price Index Base Year Function
tornb(dat, Year = "Year", pvar = "p", vvar = "v", prodID = "prod", baseyr)| dat | The dataset you would like to use. |
|---|---|
| Year | Name of the column holding year data. |
| pvar | Name of the column holding price data. |
| vvar | Name of the column holding value data. |
| prodID | Name of the column holding prodID data. |
| baseyr | The year dollar values need to be in. |
tornb(dat = data.frame("Year" = c(2001:2020, 2001:2020, 2001:2020, 2001:2020),
"p" = rnorm(n = 80, mean = 1, sd = .1),
"v" = rnorm(n = 80, mean = 500, sd = 300),
"prod" = c(rep_len("A", 20), rep_len("B", 20),
rep_len("C", 20), rep_len("D", 20))),
Year = "Year",
pvar = "p",
vvar = "v",
prodID = "prod",
baseyr = 2015)
#> Year BPI
#> 1 2001 1.1226994
#> 2 2002 1.0715985
#> 3 2003 1.0482602
#> 4 2004 1.1222190
#> 5 2005 1.0359325
#> 6 2006 1.0574533
#> 7 2007 0.8174376
#> 8 2008 1.4375345
#> 9 2009 1.0207680
#> 10 2010 1.1068715
#> 11 2011 1.0838639
#> 12 2012 0.9643593
#> 13 2013 1.1163915
#> 14 2014 1.0276103
#> 15 2015 1.0000000
#> 16 2016 1.0943652
#> 17 2017 1.0685664
#> 18 2018 1.0925590
#> 19 2019 1.0428643
#> 20 2020 0.0000000